﻿list    nocond
        title   Zobex MP/M V2.0 XIOS  (08-Jun-82)
;########################################################;
;#                                                      #;
;#      ZOBEX Hard Disk/Floppy Disk MP/M V2.0 XIOS      #;
;#                                                      #;
;#======================================================#;
;#                                                      #;
;#   Written by: Frank MacLachlan                       #;
;#   Date:       28-Sep-81                              #;
;#                                                      #;
;#   Edit History:                                      #;
;#                                                      #;
;#      08-Oct-81  Changed DMA Port timing.  Problem    #;
;#        where Z80 DMA controller garbages first byte  #;
;#        transferred after RESET command corrected by  #;
;#        performing gratuitous memory to memory block  #;
;#        move in sysini.                               #;
;#                                                      #;
;#      14-Nov-81  Converted to MP/M V2.0.              #;
;#                                                      #;
;#      08-Jun-82  MST                                  #;
;#        addition of 18Mb HD Drives                    #;
;#        addition of four more serial drivers          #;
;#        fix for centronics driver                     #;
;#        addition of virtual disk driver               #;
;#                                                      #;
;########################################################;


;       Universal truths:


FALSE   equ     0
TRUE    equ     not FALSE
NIL     equ     0               ; NIL pointer


;       Assembly options:


*include nxsetup.z80


;       MP/M related constants:


SECLEN  equ     128             ; number of bytes per sector
BUFF    equ     0080h           ; default DMA buffer adr
TBASE   equ     0100h           ; base adr of transient pgm area


;       Hard Disk constants:


HDISK   equ     HDSK12 | HDSK18
HDRATE  equ     0000b           ; hard disk step rate is 10 usec
HDBASE  equ     80h             ; base of I/O ports for HD controller
WPVAL   equ     77/4            ; first cylinder requiring write precomp
 if HDSK12
MAXHD   equ     1               ; maximum hard disk drive number
   endif
 if HDSK18
MAXHD   equ     2               ; maximum hard disk drive number
   endif


;       Floppy Disk constants:


RATE    equ     00b             ; step rate = 3 msec for Shugart 850 drives
FDBASE  equ     90h             ; base of I/O ports for FD controller
MAXFD   equ     1               ; maximum floppy drive number
TRYS    equ     10              ; number of retries upon disk I/O errors




;       Virtual Disk constants:


  if VD
MAXVD   equ     1               ; number of virtual disks (not-changeable)
  else
MAXVD   equ     0
  endif


;       Special characters and assignments:


BELL    equ     07h             ; beep char
BS      equ     08h             ; backspace char
LF      equ     0Ah
VT      equ     0Bh             ; vertical tab char
FF      equ     0Ch             ; form feed char
CR      equ     0Dh
EOF     equ     1Ah             ; CP/M end of file char (control z)
ULINE   equ     5Fh             ; underline char
DEL     equ     7Fh             ; delete


;       Drive flag bit and field assignments:


DSBIT   equ     7               ; set if double sided disk
DDBIT   equ     6               ; set if double density disk
DCBIT   equ     5               ; set if disk was changed


;       Block/deblock definitions:


BUFCNT  equ     4               ; number of disk buffers to allocate
BUFMSK  equ     03h             ; physical sector mask for 512 byte sectors
DDSPS   equ     64              ; number of double density sectors/side
MODFID  equ     0               ; buffer modified bit position
UNALOC  equ     1               ; unallocated block bit position
WRALL   equ     0               ; write to allocated record
WRDIR   equ     1               ; write to directory record
WRUAL   equ     2               ; write to unallocated record


;       Library definitions:


        list    off
*include zsiodfs.z80
*include 179Xdfs.z80
*include zdmadfs.z80
*include zdddfs.z80
*include siodfs.z80
*include ctcdfs.z80
*include 9519dfs.z80
      if Z4S
*include 4sboard.z80
      endif
      if HDISK
*include wd1000.z80
      endif
        list    on


;       Console I/O port definitions:


CRT0D   equ     SIO0AD          ; crt # 0 data port
CRT0CS  equ     SIO0AC          ; crt # 0 control/status port


CRT1D   equ     SIO1AD          ; crt # 1 data port
CRT1CS  equ     SIO1AC          ; crt # 1 control/status port


CRT2D   equ     SIO1BD          ; crt # 2 data port
CRT2CS  equ     SIO1BC          ; crt # 2 control/status port


  if Z4S


CRT3D   equ     SIO2AD          ; crt # 3 data port
CRT3CS  equ     SIO2AC          ; crt # 3 control/status port


CRT4D   equ     SIO2BD          ; crt # 4 data port
CRT4CS  equ     SIO2BC          ; crt # 4 control/status port


CRT5D   equ     SIO3AD          ; crt # 5 data port
CRT5CS  equ     SIO3AC          ; crt # 5 control/status port


CRT6D   equ     SIO3BD          ; crt # 6 data port
CRT6CS  equ     SIO3BC          ; crt # 6 control/status port


   endif


;       Serial list device definitions:


SLDCS   equ     SIO0BC          ; control/status port
SLDD    equ     SIO0BD          ; data port


SLDERR  equ     DCDBIT          ; printer fault bit
SLDBSY  equ     CTSBIT          ; printer busy bit
MXLCNT  equ     59              ; max no. lines/ page


;       Parallel list device definitions:


PLDCS   equ     PIOC            ; control/status port
PLDD    equ     PIOB            ; data port (B port)


PLDBSY  equ     0               ; busy status bit
PLDPOT  equ     1               ; paper out status bit
PLDSST  equ     2               ; selected status bit
PLDERR  equ     3               ; error bit


PLDSTB  equ     4               ; strobe bit position
PLDATF  equ     5               ; autofeed bit position
PLDINI  equ     6               ; initialize bit position
PLDSEL  equ     7               ; select bit position


;       Interrupt I/O system definitions:


CIBFSZ  equ     20              ; size of console input buffers


;       DPB (Disk Parameter Block) structure definition:


        struct  0
SPT:    defs    2               ; sectors per track
BSH:    defs    1               ; block shift factor
BLM:    defs    1               ; block mask
EXM:    defs    1               ; extent mask
DSM:    defs    2               ; disk size - 1
DRM:    defs    2               ; maximum directory number
AL0:    defs    1               ; alloc 0
AL1:    defs    1               ; alloc 1
CKS:    defs    2               ; check size
OFF:    defs    2               ; track offset to group 0
OSS:    defs    1               ; number of OS sectors
FST:    defs    1               ; first sector on track
BMK:    defs    1               ; buffer mask
        endm


;       IOPB (I/O Parameter Block) structure definition:


        struct  0
IDRV:   defs    1               ; drive number
ITRK:   defs    1               ; track number
ISEC:   defs    1               ; sector number
IDMA:   defs    2               ; DMA address
        endm


;       BDB (Buffer Descriptor Block) structure definition:


        struct  0
BDRV:   defs    1               ; drive number
BTRK:   defs    1               ; track number
BSEC:   defs    1               ; sector number
BBUFP:  defs    2               ; ^buffer
BFLGS:  defs    1               ; buffer flags
BLINK:  defs    2               ; link to next BDB
BDBSIZ: defs    0               ; defines number of bytes in a BDB
        endm


;       XDOS extended function codes:


POLL    equ     131             ; poll function
FLGWT   equ     132             ; flag wait
FLGSET  equ     133             ; flag set
MAKEQ   equ     134             ; make queue
READQ   equ     137             ; read queue
WRITEQ  equ     139             ; write queue
XDELAY  equ     141             ; delay
DSPTCH  equ     142             ; dispatch
CREATE  equ     144             ; create process
GCNUMB  equ     153             ; get console number


;       Device poll codes:


      if HDISK
PLHD    equ     0               ; poll hard disk
      else
PLHD    equ     -1
      endif
PLFD    equ     PLHD+1          ; poll floppy disk
PLSLD   equ     PLFD+1          ; poll serial list device
PLPLD   equ     PLSLD+1         ; poll parallel list device
PLC0O   equ     PLPLD+1         ; poll console # 0 output
PLC1O   equ     PLC0O+1         ; poll console # 1 output
PLC2O   equ     PLC1O+1         ; poll console # 2 output
  if Z4S
PLC3O   equ     PLC2O+1         ; poll console # 3 output
PLC4O   equ     PLC3O+1         ; poll console # 4 output
PLC5O   equ     PLC4O+1         ; poll console # 5 output
PLC6O   equ     PLC5O+1         ; poll console # 6 output
   endif


;       System flag assignments:


TIKFLG  equ     1               ; system tick flag
SECFLG  equ     2               ; system second flag
FDIFLG  equ     4               ; floppy disk IRQ flag
HDIFLG  equ     FDIFLG+1        ; hard disk IRQ flag
LSTFLG  equ     HDIFLG+1        ; line printer ready flag
C0IFLG  equ     LSTFLG+1        ; console # 0 input flag
C0OFLG  equ     C0IFLG+1        ; console # 0 output flag
C1IFLG  equ     C0OFLG+1        ; console # 1 input flag
C1OFLG  equ     C1IFLG+1        ; console # 1 output flag
C2IFLG  equ     C1OFLG+1        ; console # 2 input flag
C2OFLG  equ     C2IFLG+1        ; console # 2 output flag
  if Z4S
C3IFLG  equ     C2OFLG+1        ; console # 3 input flag
C3OFLG  equ     C3IFLG+1        ; console # 3 output flag
C4IFLG  equ     C3OFLG+1        ; console # 4 input flag
C4OFLG  equ     C4IFLG+1        ; console # 4 output flag
C5IFLG  equ     C4OFLG+1        ; console # 5 input flag
C5OFLG  equ     C5IFLG+1        ; console # 5 output flag
C6IFLG  equ     C5OFLG+1        ; console # 6 input flag
C6OFLG  equ     C6IFLG+1        ; console # 6 output flag
   endif


;       Misc definitions:


      if Z4S
NMBCNS  equ     7               ; number of console devices
      else
NMBCNS  equ     3               ; four less without 4S board
      endif


      if HDISK
MAXDRV  equ     MAXHD+MAXFD+MAXVD+1  ; maximum drive number (0..MAXDRV)
      else
MAXDRV  equ     MAXFD+MAXVD
      endif


;       DDB (Device Descriptor Block) structure definition:


        struct  0
DPORT:  defs    1               ; base port adr
DFLG:   defs    1               ; system flag code
DQINP:  defs    1               ; input ptr
DQOUT:  defs    1               ; output ptr
DQSIZ:  defs    1               ; buffer size byte
DQBUFP: defs    2               ; ^bfr base word
DDBSIZ: defs    0
        endm




;       Macro definitions:


clra    macro                   ;; A := 0
        xor     a,a
        endm


clrcf   macro                   ;; CY := 0
        or      a,a
        endm


tsta    macro                   ;; set flags from A
        or      a,a
        endm


tsthl   macro                   ;; test HL for 0
        ld      a,l
        or      a,h
        endm


dsub    macro   #reg0,#reg1     ;; #reg0 := #reg0 - #reg1
        or      a,a
        sbc     #reg0,#reg1
        endm


save    macro
        push    hl
        push    de
        push    bc
        push    af
        endm


unsave  macro
        pop     af
        pop     bc
        pop     de
        pop     hl
        endm


even    macro                   ;; set location counter to even address
        defs    $ and 1
        endm


        form
;########################################################;
;#              SYSTEM ENTRY VECTORS                    #;
;########################################################;


xios    equ     $
        jp      combas          ; common memory base
        jp      abort           ; system abort


        jp      const           ; console input status chk
        jp      conin           ; console input routine
        jp      conout          ; console output routine
        jp      list            ; printer output routine
        jp      xitnul          ; punch output - exit null
        jp      xitnul          ; reader input - exit null


        jp      home            ; home disk routine
        jp      seldsk          ; select disk routine
        jp      settrk          ; select track routine
        jp      setsec          ; select sector routine
        jp      setdma          ; set disk buffer adr
        jp      read            ; disk read routine
        jp      write           ; disk write routine


        jp      listst          ; return list status
        jp      stran           ; sector translate


        jp      selmem          ; select memory
        jp      poldev          ; poll device
        jp      clokgo          ; start clock
        jp      clokno          ; stop clock
        jp      xitreg          ; exit region
        jp      maxcon          ; maximum console number
        jp      sysini          ; system initialization
        defb    0, 0, 0         ; force omission of idle proc


        form
;########################################################;
;#             VIRTUAL DISK MEMORY TABLE                #;
;########################################################;


      if VD
*include vdsetup.z80
      endif


        form
;########################################################;
;#               PRIMARY DISK DRIVERS                   #;
;########################################################;




seldsk: ; Select disk
        ;
        ; Entry:   C = desired drive
        ; Exit:    DE = ^ DPH, HL = ^ DPB
        ; Alters:  A
        ;
        ld      a,c
        ld      hl,0000h
        cp      a,MAXDRV+1      ; if bad(diskno) then
        ret     nc              ;    exit(FALSE)
        ld      (reqdrv),a      ; save requested disk
      if HDISK
        cp      a,MAXHD+1
        jr      nc,sdsk0        ; if HD then
        ld      hl,hdinif
        ld      a,(hl)
        tsta
        ld      (hl),TRUE       ;    if not initialized yet
        call    z,inihd         ;       initialize
        jr      getdp           ;    get ^DPH & ^DPB, exit
sdsk0   equ     $
      endif
      if VD
        cp      a,MAXDRV        ; if not VD then
        jr      nz,sdsk1        ;   go do floppy stuff
;       ld      hl,0000h        ; if no disk, return null vector
        ld      a,(vdok)        ; get flag that say's if there is a VD problem
        cp      false           ; if false, virtual disk not OK
        ret     z               ;           and return
        jr      getdp           ; get ^DPH & ^DPB, exit
sdsk1   equ     $
      endif
        ld      a,(curdrv)      ; A := currently selected drive
        push    af
        call    getflg          ; HL := ^dflgs[curdrv]
        call    ckchg           ; see if current drive had disk changed
        ld      a,c             ; A := requested drive
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,1<<BFRENB|1<<MTRON|0<<SIDE1|0<<SDEN|1<<SELENB
        out     (FDXCSR),a      ; select requested drive
        call    grqdf           ; HL := ^dflgs[reqdrv]
        call    ckchg           ; check if requested drive had disk changed
        bit     DCBIT,(hl)
        call    nz,inidsk       ; set up drive parms if disk was changed
        pop     af              ; A := current drive
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,1<<BFRENB|1<<MTRON|0<<SIDE1|0<<SDEN|1<<SELENB
        out     (FDXCSR),a      ; re-select current drive
                                ; exit thru getdp




getdp:  ; Return pointers to DPH, DPB
        ;
        ; Entry:   (reqdrv) = requested disk number
        ; Exit:    HL = ^DPH, DE = ^DPB
        ; Altered: A, HL, DE
        ;
        ld      hl,(reqdrv)
        ld      h,0             ; HL := diskno
        add     hl,hl
        add     hl,hl
        add     hl,hl
        add     hl,hl           ; HL := 16 * diskno
        ld      de,dpbase
        add     hl,de           ; HL := ^dpbase[diskno*16]
        push    hl
        ld      de,10           ; offset to ^DPB
        add     hl,de
        ld      e,(hl)
        inc     hl
        ld      d,(hl)          ; DE := ^DPB
        pop     hl              ; HL := ^DPH
        ret




inidsk: ; Set drive parameters
        ;
        ; Entry:   reqdrv = drive number
        ;
        call    clrbfs          ; clear read buffers belonging to this drive
        call    ckden           ; check density
        ld      de,dp128s       ; assume SD SS
        ld      bc,xlt128
        ld      a,0 shl DDBIT or 0 shl DSBIT
        jr      c,inid0         ; jif SD SS
        ld      de,dp512s       ; now try for DD SS
        ld      bc,0000h
        in      a,(FDXCSR)
        bit     DSIDED,a
        ld      a,1 shl DDBIT or 0 shl DSBIT
        jr      z,inid0         ; jif DD SS
        ld      de,dp512d       ; set up for DD DS
        ld      a,1 shl DDBIT or 1 shl DSBIT
inid0:  push    af
        call    grqdf
        pop     af
        ld      (hl),a          ; set dflgs byte
        push    de
        call    getdp           ; HL := ^DPH
        ld      (hl),c
        inc     hl
        ld      (hl),b          ; set ^ sector translation vector in DPH
        ld      de,9            ; DE := offset to ^DPB
        add     hl,de
        pop     de
        ld      (hl),e
        inc     hl
        ld      (hl),d          ; set ^DPB in DPH to correct value
        clra
        out     (FDXCSR),a      ; deselect drive to clear disk change status
      if not VERBOS
        ret
      else
        call    print           ; print drive configuration info
        defm    CR,LF,'Drive '
        ld      a,(reqdrv)
        add     a,'A'
        call    putc            ; print drive ID
        call    print
        defm    ' changed to '
        call    grqdf
        bit     DSBIT,(hl)
        call    inid2           ; display side code
        call    print
        defm    'S '
        bit     DDBIT,(hl)
        call    inid2           ; display density code
        call    print
        defm    'D',CR,LF
        ret
        ;
inid2:  ld      a,'S'
        jr      z,inid4
        ld      a,'D'
inid4:  jp      putc


      endif ; VERBOS




home:   ; Reset current drive to track 0
        ;
        ; Entry:   nil
        ; Exit:    nil
        ; Altered: A, BC
        ;
        call    flushr          ; flush modified buffers belonging to reqdrv
        ld      bc,0            ; seek to track zero, exit thru settrk




settrk: ; Set track address
        ;
        ; Entry:   BC = desired track address
        ; Exit:    nil
        ; Altered: A
        ;
      if HDISK
        ld      a,(reqdrv)
        cp      a,MAXHD+1
        ld      a,c
        jr      nc,strk0        ; if hard disk then
        and     a,07h
        ld      (reqhd),a       ;    (reqhd) := track mod 8
        ld      a,c
        and     a,0f8h          ;    track := track / 8
        or      a,b
        rrca
        rrca
        rrca
      else
        ld      a,c
      endif
strk0:  ld      (reqtrk),a      ; store requested track
        ret




setsec: ; Set sector number
        ;
        ; Entry:   C = desired sector number
        ; Exit:    nil
        ; Altered: A
        ;
        ld      a,c
        ld      (reqsec),a      ; save requested sector
        ret




setdma: ; Set DMA buffer address
        ;
        ; Entry:   BC = DMA buffer address
        ; Exit:    nil
        ; Altered: nil
        ;
        ld      (reqdma),bc     ; save requested DMA buffer adr
        ret




stran:  ; Translate logical to physical sector address
        ;
        ; Entry:   BC = logical sector number
        ;          DE = ^sector translation table
        ; Exit:    HL = 16 bit physical sector address
        ; Altered: A, HL, DE
        ;
        ex      de,hl           ; HL := ^xlat[0]
        ld      a,l
        or      a,h
        add     hl,bc           ; HL := ^xlat[sector]
        ret     z               ; if HL = 0 then return HL := sector
        ld      l,(hl)          ; else
        ld      h,0             ;    return HL := xlat[sector]
        ret




write:  ; Write a logical sector to the disk.
        ;
      if HDISK | VD
        ld      a,(reqdrv)
      endif
      if HDISK
        cp      a,MAXHD+1       ; if reqdrv <= MAXHD then
        jp      c,wrthd         ;    goto wrthd
      endif
      if VD
        cp      a,MAXDRV        ; if reqdrv == MAXDRV then
        jp      z,vdwt          ;    goto vdwt
      endif
        ld      a,c
        ld      (wrttyp),a
        call    rwsup           ; set up for write
        jr      nz,wrt1         ; if single density then
        ld      ix,reqdrv       ;    IX := ^ IOPB
        jp      wrtsec          ;    write the sector directly, exit
        ;                         else
wrt1:   call    ckbufs          ;    chk if sector is already in a buffer
        jr      nc,wrt2         ;    jif found sector
        call    getbuf          ;    get a buffer
        ld      a,(wrttyp)
        cp      a,WRUAL
        ld      a,1 shl UNALOC  ;    tentatively flag sector as unallocated
        push    ix
        call    nz,ckuna        ;    if wrttyp <> WRUAL then chk if unallocated
        pop     ix
        ld      (ix+BFLGS),a
        jr      nc,wrt2         ;    if not writing unallocated sector then
        call    rdsec           ;       pre-read the sector
        jr      z,wrt2          ;       if pre-read error then
        call    warn            ;          send error msg to operator
        defm    'Wrt pre-read err'
        jr      rwxit           ;          exit
        ;
wrt2:   set     MODFID,(ix+BFLGS)  ; indicate buffer was modified
        call    gxadrs
        ex      de,hl
        ld      c,1 shl BFRENB or 0 shl BFRRD or 1 shl SELENB
        call    movbuf          ;    move data into buffer
        ld      a,(wrttyp)
        cp      a,WRDIR         ;    if wrttyp = WRDIR then
        call    z,flushr        ;       flush all modified buffers for reqdrv
        jr      rwxit           ;    check for errors, exit




read:   ; Read CP/M logical record at the current density
        ; Deblock if double density.
        ;
      if HDISK | VD
        ld      a,(reqdrv)
      endif
      if HDISK
        cp      a,MAXHD+1       ; if reqdrv <= MAXHD then
        jp      c,rdhd          ;    goto rdhd
      endif
      if VD
        cp      a,MAXDRV        ; if reqdrv == MAXDRV then
        jp      z,vdrd          ;    goto rdvd
      endif
        call    rwsup           ; set up for read
        jr      nz,rd1          ; if single density then
        ld      ix,reqdrv       ;    IX := ^ IOPB
        jp      rdsec           ;    read sector directly, exit
        ;                         else
rd1:    call    ckbufs          ;    chk if desired record is in memory
        jr      nc,rd2          ;    jif found sector
        call    getbuf          ;    get a buffer for reading
        call    rdsec           ;    fill buffer
rd2:    call    gxadrs          ;    set up for block move of data from bfr
        ld      c,1 shl BFRENB or 1 shl BFRRD or 1 shl SELENB
        call    movbuf          ;    move data to user buffer
                                ;    chk error(s), set return error code, exit




rwxit:  ; Check for any errors, mark BDB inactive if any found
        ;
        ld      a,(errcod)
        tsta
        ret     z               ; if error then
        ld      (ix+BDRV),-1    ;    mark BDB as inactive
        ret




gxadrs: ; Set up registers for block move of data from buffer
        ; associated with BDB given by IX to user DMA address.
        ;
        ld      a,(reqsec)
        and     a,BUFMSK        ; A := reqsec & BUFMSK
        ld      h,a
        ld      l,0             ; HL := 256 * (reqsec & BUFMSK)
        srl     h
        rr      l               ; HL := offset within buffer
        ld      e,(ix+BBUFP)
        ld      d,(ix+BBUFP+1)
        add     hl,de           ; HL := 128 byte segment within buffer
        ld      de,(reqdma)
        ret




movbuf: ; Move data to/from disk controller buffer memory from/to
        ; requested DMA address.
        ;
        ; Entry:   HL = source adr, DE = destination adr
        ;          C = buffer select mask
        ;
        ld      (bmaadr),hl     ; plug source adr
        ld      (bmbadr),de     ;  & destination adr into DMA cmd string
        ld      a,(curdrv)      ; avoid changing drive selection
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,c
        out     (FDXCSR),a      ; enable and select buffer memory
        jp      ddxfr           ; transfer the data, exit




ckbufs: ; Check if the desired sector is amongst those buffered
        ;
        ; Entry:   reqdrv, reqtrk & reqsec = parms to match
        ; Exit:    CY = 1 if not found
        ;          CY = 0 if found, IX = ^BDB
        ;
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
        ld      iy,bdblhd-BLINK ; IY := ^ previous BDB
        ld      b,not BUFMSK
ckbfs0: call    ckbuf           ; test next buffer
        jr      nc,ckbfs2       ; jif found match
        call    gnbdb           ; move to next BDB
        jr      nc,ckbfs0       ; try again if not at end of list
        ret                     ; return CY = 1
        ;
ckbfs2: call    relink          ; move the BDB to beginning of the list
        clrcf                   ; return CY = 0
        ret




ckbuf:  ; Check BDB given by IX against requested values
        ;
        ld      hl,reqdrv
        ld      a,(ix+BDRV)
        cp      a,(hl)          ; compare drive numbers
        jr      nz,ckbf0        ; jif mismatch
        inc     hl
        ld      a,(ix+BTRK)
        cp      a,(hl)          ; compare track numbers
        jr      nz,ckbf0        ; jif mismatch
        inc     hl
        ld      a,(hl)
        xor     a,(ix+BSEC)     ; compare sector numbers
        and     a,b             ; mask to test for desired range
        ret     z               ; match, return CY = 0
ckbf0:  scf                     ; mismatch, return CY = 1
        ret




ckuna:  ; Check if the current sector to be written is the next sector
        ; in an unallocated group of sectors.
        ;
        ld      ix,(bdblhd)     ; IX := ^ head of BDB list
        ld      a,(blkmsk)
        cpl
        ld      b,a
cku0:   bit     UNALOC,(ix+BFLGS)
        jr      z,cku2          ; jif not unallocated block
        call    ckbuf
        jr      nc,cku4         ; jif same as our block
cku2:   call    gnbdb           ; IX := ^ next BDB
        jr      nc,cku0         ; repeat til NIL
        ret                     ; return CY = 1
        ;
cku4:   ld      hl,reqsec
        ld      a,(ix+BSEC)
        cp      a,(hl)
        ccf
        jr      c,cku6
        res     UNALOC,(ix+BFLGS)
        ld      a,(hl)
        or      a,b
        add     a,BUFMSK
        inc     a
        ld      a,1 shl UNALOC
        ret     nc
cku6:   ld      a,0
        ret




clrbfs: ; Clear all buffers belonging to (reqdrv). This is
        ; done when a disk change has been detected on
        ; reqdrv.
        ;
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
clrb0:  ld      a,(reqdrv)
        cp      a,(ix+BDRV)
        jr      nz,clrb2        ; if buffer belongs to reqdrv
        ld      (ix+BDRV),-1    ;    mark buffer as inactive
clrb2:  call    gnbdb           ; IX := ^ next BDB in list
        jr      nc,clrb0        ; repeat til NIL
        ret




flusha: ; Flush all modified active disk buffers
        ;
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
flsha0: ld      a,(ix+BDRV)
        inc     a
        jr      z,flsha2        ; if buffer is active
        bit     MODFID,(ix+BFLGS) ;  and buffer has been modified then
        call    nz,wrtsec       ;    write buffer to disk
        call    nz,wrterr       ;    if error then print error msg
flsha2: res     MODFID,(ix+BFLGS)
        call    gnbdb           ; get next BDB
        jr      nc,flsha0       ; repeat til bdb[BLINK] = NIL
        ret




flushr: ; Flush all modified buffers belonging to (reqdrv)
        ;
        push    ix
        ld      ix,(bdblhd)     ; IX := ^ BDB list head
flshr0: ld      a,(reqdrv)
        cp      a,(ix+BDRV)     ; if buffer belongs to reqdrv
        jr      nz,flshr2
        bit     MODFID,(ix+BFLGS) ;  and buffer has been modified then
        call    nz,wrtsec       ;    write buffer to disk
        call    nz,wrterr       ;    if error then print error msg
        res     MODFID,(ix+BFLGS)
flshr2: call    gnbdb           ; get next BDB
        jr      nc,flshr0       ; repeat til bdb[BLINK] = NIL
        pop     ix
        ret




gnbdb:  ; Get next BDB (Buffer Descriptor Block):
        ;
        ld      e,(ix+BLINK)
        ld      d,(ix+BLINK+1)  ; DE := ^ next BDB (or NIL)
        ld      a,e
        or      a,d
        scf
        ret     z               ; return CY = 1 if found end of list
        push    ix
        pop     iy              ; IY := ^ previous BDB
        push    de
        pop     ix              ; IX := ^ next BDB
        clrcf
        ret                     ; return CY = 0




getbuf: ; Get a buffer from the buffer list
        ;
        ld      ix,(bdblhd)     ; IX := ^ LRA BDB
        ld      a,(ix+BDRV)     ; A := flags byte for LRA BDB
        inc     a
        jr      z,getb0         ; if bfr is active
        bit     MODFID,(ix+BFLGS) ;  and bfr was modified then
        call    nz,wrtsec       ;       write it to disk
        call    nz,wrterr       ;       if write error then print error msg
getb0:  push    ix
        pop     de
        ld      hl,reqdrv
        ld      bc,3
        ldir                    ; copy parms to BDB
        ld      (ix+BFLGS),c    ; clear flags byte (C contains 0 from ldir)
        ld      l,(ix+BLINK)
        ld      h,(ix+BLINK+1)
        ld      (bdblhd),hl     ; remove LRA BDB
        jr      addbdb          ; add BDB to list tail, exit




relink: ; Move the BDB list element addressed by IX to the tail of
        ; the list.
        ;
        ld      l,(ix+BLINK)
        ld      h,(ix+BLINK+1)
        ld      a,h
        or      a,l
        ret     z               ; nothing to do if at end of list
        ld      (iy+BLINK),l
        ld      (iy+BLINK+1),h




addbdb: ; Insert element at end of BDB list
        ;
        ld      iy,(bdbltl)
        push    ix
        pop     hl
        ld      (iy+BLINK),l    ; link in new BDB
        ld      (iy+BLINK+1),h
        clra
        ld      (ix+BLINK),a    ; set BLINK field of new BDB to NIL
        ld      (ix+BLINK+1),a
        ld      (bdbltl),hl
        ret




rwsup:  ; Set up for read or write logical sector
        ;
        ; Entry:   (reqdrv) = requested drive number
        ; Exit:    Z = 1 if single density, Z = 0 if double density
        ;          blkmsk = block mask from DPB
        ; Alters:  A, HL, DE
        ;
        clra
        ld      (errcod),a      ; errcod := 0
        call    getdp
        ld      hl,BLM
        add     hl,de
        ld      a,(hl)
        ld      (blkmsk),a      ; blkmsk := dpb[BLM]
        call    grqdf
        bit     DDBIT,(hl)
        ret


      if HDISK
        form
;########################################################;
;#                 HARD DISK DRIVERS                    #;
;########################################################;


wrthd:  ; Write disk sector
        ;
        ; entry parms:  none
        ; return parms: A = 0 if no error, 1 if error
        ; regs altered: A, BC, DE, HL
        ;
        call    hdsup           ; set up controller
        call    whd2            ; write the sector
        ret     z               ; exit if no error
        call    gasec           ; try to find alternate sector
        tsta
        ret     nz              ; not found
whd2:   ld      bc,[128<<8] | HDDAT
        ld      hl,(reqdma)
        ld      a,HDWRTC
        out     (HDCSR),a       ; issue write cmd
whd4:   in      a,(HDCSR)       ; wait for DRQ
        bit     DRQB,a
        jr      z,whd4
        call    hdwxfr          ; fill buffer
        call    hdwat           ; wait for write to complete
        jr      rwhdx           ; test for errors, exit




rdhd:   ; Read hard disk sector
        ;
        ; entry parms:  none
        ; return parms: A = 0 if no error, 1 if error
        ; regs altered: A, BC, DE, HL
        ;
        call    hdsup           ; set up controller
        call    rhd2            ; read the sector
        ret     z               ; exit if no error
        call    gasec           ; try to find alternate sector
        tsta
        ret     nz              ; not found
rhd2:   ld      a,HDRDC
        out     (HDCSR),a       ; issue read cmd
        call    hdwat           ; wait for read to complete
        ld      bc,[128<<8] | HDDAT
        ld      hl,(reqdma)
        call    hdrxfr          ; empty buffer
rwhdx:  in      a,(HDCSR)
        and     a,1<<HERRB      ; test for errors
        ret




gasec:  ; Get alternate sector.
        ;
        ; Entry:  nil
        ; Exit:   A = 0ffh if sector cannot be replaced,
        ;         A = 0 if ok.
        ;
        ld      hl,ast
        ld      b,1
gasec2: ld      a,(astsiz)
        cp      a,b
        ld      a,0ffh
        ret     c               ; exit if beyond end of table
        in      a,(HDCYLL)
        cp      a,(hl)
        inc     hl
        push    hl
        jr      nz,gasec4       ; cylinder #s differ
        in      a,(HDSDH)
        and     a,07h
        cp      a,(hl)
        inc     hl
        jr      nz,gasec4       ; head #s differ
        in      a,(HDSEC)
        cp      a,(hl)
        jr      z,gasec6        ; found match
gasec4: pop     hl
        inc     hl
        inc     hl
        inc     b
        jr      gasec2
        ;
gasec6: pop     hl
        in      a,(HDSDH)
        and     a,0f8h
        or      a,2             ; head := 2
        out     (HDSDH),a
        ld      a,b
        inc     a
        out     (HDSEC),a       ; sector := i + 1
        clra
        out     (HDCYLL),a      ; cylinder := 0
        ret




hdsup:  ; Set up hard disk controller for read/write operation
        ;
        ; Entry:   reqdrv = drive #, reqhd = head #, reqtrk = cylinder #
        ;          reqsec = sector #
        ; Exit:    nil
        ; Altered: A, HL
        ;
        ld      a,(reqdrv)      ; A := select code
     if HDSK12
        add     a,a             ; shift drive bits into position
        add     a,a
       endif
     if HDSK18
        ld      l,a
        add     a,a
        add     a,l
       endif
        and     a,18h           ; least significant bit is discarded
        ld      hl,reqhd
        or      a,(hl)          ; or in head select bits
        or      a,SSZ128        ; set sector size code
        out     (HDSDH),a       ; output to controller
        clra
        out     (HDCYLH),a
        ld      a,(reqtrk)
        out     (HDCYLL),a      ; set cylinder adr
        ld      a,(reqsec)
        out     (HDSEC),a       ; issue sector adr
        ret




inihd:  ; Initialize hard disk controller
        ;
        clra
        ld      (reqtrk),a      ; reqtrk := 0
        ld      a,2
        ld      (reqhd),a       ; reqhd := 2
        ld      a,1
        ld      (reqsec),a      ; reqsec := 1
        call    hdsup
        ld      a,WPVAL
        out     (HDWPC),a       ; init write precomp
        ld      a,HDHOMC | 1111b
        call    inih4           ; issue slow restore cmd to get to cyl 0
        ld      a,HDHOMC | RATE
        call    inih4           ; issue another restore to set step rate
        ld      hl,astsiz+128
        ld      (reqdma),hl
        call    rdhd            ; read second sector of alternate sector table
        tsta
        jr      nz,inih2        ; error
        clra
        ld      (reqsec),a      ; reqsec = 0
        ld      hl,astsiz
        ld      (reqdma),hl
        call    rdhd            ; read first sector of alternate sector table
        tsta
        ret     z               ; ok
inih2:  call    warn
        defm    'Can''t read AST'
        clra
        ld      (astsiz),a      ; mark table as empty
        ret
        ;
inih4:  out     (HDCSR),a
        call    hdwat           ; wait for restore to complete
inih6:  in      a,(HDCSR)
        bit     SEKCB,a
        jr      z,inih6
        ret




hdwat:  ; Wait for HDC to complete a command.
        ;
        ; Entry parms:  none
        ; Return parms: none
        ; Regs altered: A
        ;
        call    polhd           ; if hard disk is ready then
        ret     nz              ;    exit
        ld      a,PLHD          ; else
        jp      suspnd          ;    suspend 'til ready


      endif ; HDISK


        form
;########################################################;
;#      SUPPORT ROUTINES FOR FLOPPY DISK DRIVERS        #;
;########################################################;


ckchg:  ; Check if disk was changed
        ;
        ; Entry:   HL = ^ to dflgs byte for selected drive
        ; Exit:    DCBIT bit in dflgs will be set if the disk
        ;          was changed.  Nothing occurs if no disk change
        ;          was detected.
        ;
        in      a,(FDXCSR)
        bit     DSKCHG,a
        ret     z               ; if disk changed then
        set     DCBIT,(hl)      ;    set disk change bit in flag byte
        ret




ckden:  ; Check disk density by restoring drive to track 0 with verify
        ; and then testing for record not found status.
        ;
        ; Entry:   nil
        ; Exit:    CY = 0 if double density, CY = 1 if single density
        ; Altered: A, BC, HL, IX
        ;
        clra
        ld      (reqsec),a      ; reqsec := 0 (force to side 0)
        call    grqdf
        set     DDBIT,(hl)      ; set to DD
        push    hl
        call    ckden2          ; try DD
        pop     hl
        ret     z               ; return CY = 0 if DD
        res     DDBIT,(hl)      ;
        call    ckden2          ; try SD
        scf
        ret     z               ; return CY = 1 if SD
        call    warn
        defm    'Set Density Err, ABORT (Y/N): '
        call    getyn           ; see if user wants to abort
        jr      c,ckden         ; try again
        jp      abort           ; abort process




ckden2: ; Select, recalibrate drive for ckden routine
        ;
        ld      ix,reqdrv
        call    select          ; select the drive, set to SS xD
        call    recal           ; home disk with verify
        in      a,(FDCSR)       ; get status from verify
        and     a,1 shl RNFBIT  ; mask for seek error bit
        ret




wrtsec: ; Write disk sector
        ;
        ; Entry:   IX = ^IOPB
        ; Exit:    A = 0 if no error, 1 if error
        ; Altered: A, BC, DE, HL
        ;
        ld      de,[WRTCMD shl 8] or WRTMSK; D := cmd, E := error mask
        jr      rws0            ; goto common read/write code




rdsec:  ; Read disk sector
        ;
        ; Entry:   IX = ^IOPB
        ; Exit:    A = 0 if no error, 1 if error (flags set from A)
        ; Altered: A, BC, DE, HL
        ;
        ld      de,[RDCMD shl 8] or RDMSK; D := read cmd, E := read error mask
rws0:   ld      l,(ix+BBUFP)
        ld      h,(ix+BBUFP+1)  ; HL := buffer adr
        ld      (dkaadr),hl     ; plug into DMA cmd string
        call    select          ; select dsk, sec, side, side sel flg, density
        ld      b,TRYS          ; B := retry cnt
rws2:   push    bc
        call    movehd          ; move head to (ix+IRTK)
        ld      hl,dmatb1       ; assume disk read
        bit     WRTBIT,d
        jr      z,rws4          ; if disk write
        ld      hl,dmatb2       ;    set up for DMA output
rws4:   call    puttbl          ; select transfer, direction
        ld      hl,dmatb3
        call    puttbl          ; send cmd string to DMA controller
        call    rwsxfr          ; transfer the sector
        pop     bc
        in      a,(FDCSR)       ; read controller status
        and     a,e             ; isolate error bits
        ret     z               ; no errors - done
        dec     b               ; count down errors
        jr      z,rws6          ; too many
        bit     RNFBIT,a
        call    nz,recal        ; recalibrate drive if record not found error
        jr      rws2            ; try again
        ;
rws6:   clra
        inc     a               ; A := 1
        ld      (errcod),a      ; errcod := 1
        ret




movehd: ; Move head on currently selected drive to (track)
        ;
        ; Entry:   (IX) = ^IOPB
        ; Exit:    nil
        ; Altered: A
        ;
        in      a,(FDTRK)
        cp      a,(ix+ITRK)
        ret     z               ; exit if already there
        ld      a,(ix+ITRK)
        out     (FDDAT),a       ; issue requested trk adr
        call    eradly          ; delay for tunnel erase if req'd
        ld      a,SEKCMD or LODHD or VERIFY or RATE
        out     (FDCSR),a       ; issue seek with headload cmd
        call    fdwat           ; wait til done
        jr      movehd          ;  then check if 179X screwed up track reg




recal:  ; Recalibrate drive by performing a restore operation
        ;
        call    eradly          ; delay for tunnel erase if we just wrote
        ld      a,HOMCMD or LODHD or VERIFY or RATE
        out     (FDCSR),a       ; issue restore cmd
        jp      fdwat           ; wait til done, exit




select: ; Select disk, sector, side, density
        ;
        ; Entry:   IX = ^IOPB, D = read or write cmd byte for 179X
        ; Exit:    cmd byte in D will have side select flag set if
        ;          side 1 was selected.
        ; Altered: A, HL, BC
        ;
        ld      c,(ix+IDRV)
        ld      a,c
        call    getflg
        ld      b,0<<BFRENB|1<<MTRON|0<<SIDE1|1<<SDEN|1<<SELENB
        bit     DDBIT,(hl)      ; Z=1 if SD
        ld      a,(ix+ISEC)
        jr      z,sel4          ; jif SD
        ld      b,1<<BFRENB|1<<MTRON|0<<SIDE1|0<<SDEN|1<<SELENB
        cp      a,DDSPS
        jr      c,sel0          ; jif SS DD
        sub     a,DDSPS
        ld      b,1<<BFRENB|1<<MTRON|1<<SIDE1|0<<SDEN|1<<SELENB
        set     SETSF1,d        ; set side select flag in cmd byte
sel0:   bit     WRTBIT,d
        jr      z,sel2          ; if writing to disk then
        set     BFRRD,b         ;    set buffer read bit in select code
sel2:   srl     a
        srl     a               ; form physical sector adr
sel4:   out     (FDSEC),a       ; output to controller
        ld      a,c             ; A := new drv
      if HDISK
        sub     a,MAXHD+1
      endif
        or      a,b             ; or in side, density
        out     (FDXCSR),a      ; select requested drive
        ld      a,(curdrv)      ; A := curdrv
        cp      a,c
        ret     z               ; if changed drives then
        call    trkadr          ;    HL := ptr to trk storage for current drv
        in      a,(FDTRK)
        ld      (hl),a          ;    track setting saved
        ld      a,c             ;    A := new drive
        ld      (curdrv),a      ;    curdrv := new drive
        call    trkadr          ;    HL := ptr to trk storage for new drv
        ld      a,(hl)          ;    A := trk setting for requested drv
        out     (FDTRK),a       ;    output to controller
        out     (FDDAT),a
        ld      a,SEKCMD
        out     (FDCSR),a       ;    seek to same trk w/o hld to unload hd
        jp      fdwat           ;    wait till done, exit




trkadr: ; Get pointer to track address for drive in A
        ;
        ; Entry:   A = drive number
        ; Exit:    HL = pointer to track storage for drive
        ; Altered: HL, A
        ;
        ld      hl,tracks       ; HL := ^ drv 0 trk storage
        jp      indexa          ; exit thru indexa




grqdf:  ; Return pointer to flag byte for (reqdrv)
        ;
        ; Entry:   (reqdrv) = drive number
        ; Exit:    HL = ^ flag byte
        ; Alters:  A, HL
        ;
        ld      a,(reqdrv)      ; A := drive number, exit thru getflg




getflg: ; Return pointer to drive flag byte
        ;
        ; Entry:   A = drive number
        ; Exit:    HL = ^ flag byte
        ; Alters:  A, HL
        ;
        ld      hl,dflgs        ; HL := ^ drive flags array
        jp      indexa          ; exit thru indexa, exit




eradly: ; Delay for 600 microseconds for tunnel erase to cease
        ; if the last read/write operation was a write
        ;
        ld      a,(lastrw)
        bit     WRTBIT,a        ; if last operation was not a write then
        ret     z               ;    exit
        ld      a,150           ; count for 600 microsec at 4 mhz
edly0:  dec     a
        jr      nz,edly0
        ret


        form
;########################################################;
;#            VIRTUAL DISK READ/WRITE ROUTINES          #;
;########################################################;


      if VD


vdrd:
; this subroutine reads a sector from the virtual disk
; it first moves the sector into vdbuff
; then it moves the sector into the user segment
; it cannot be done directly because of constraints
; in the way ZOBEX handles its normal memory allocation
; (all or nothing of the 48K -- could be changed though)
;
        ld      (vdstck),sp
        ld      sp,vdstck
        call    vdsu
        call    vdxfr0
        call    vdxfr2
        ld      sp,(vdstck)
        xor     a               ; always successful
        ret


vdwt:
; this subroutine writes a sector to the virtual disk
; it first moves the sector into vdbuff
; then it moves the sector into the virtual disk memory
;
        ld      (vdstck),sp
        ld      sp,vdstck
        call    vdxfr3
        call    vdsu
        call    vdxfr1
        ld      sp,(vdstck)
        xor     a               ; always successful
        ret


vdsu:
; On Calling
;   (reqtrk) should have virtual disk track
;   (reqsec) should have virtual disk sector
; Function
;   There are three addresses to specify where
;   information is on the virtual disk: port, bank, address
; On Return
;   the port is placed into register C
;   the bank is placed into register B
;   the address is placed put into HL
;
        ld      a,(reqtrk)
        ld      l,a
        add     a,a             ; multiply by three (number of bytes in table)
        add     a,l
        ld      hl,vdmtbl
        call    indexa
        ld      c,(hl)
        inc     hl
        ld      b,(hl)
        inc     hl
                                ; build the address of the sector
        ld      h,(hl)          ; get bits 15-14 (from vdmtbl)
        ld      l,0             ; get zeros for bits 0-6
        ld      a,(reqsec)      ; get bits 7-13
        srl     a               ; move bits 8-13 into correct place
        rr      l               ; move bit 7 into L
        or      a,h             ; or bits 14-15 with 8-13
        ld      h,a


        ret


      endif


        form
;########################################################;
;#   DATA WHICH MAY BE PLACED IN BANK SELECTED MEMORY   #;
;########################################################;


xlt128: ; sector translation vector for SD floppy with 128 byte sectors
        ;
        defb    01,07,13,19     ; 1..4
        defb    25,05,11,17     ; 5..8
        defb    23,03,09,15     ; 9..12
        defb    21,02,08,14     ; 13..16
        defb    20,26,06,12     ; 17..20
        defb    18,24,04,10     ; 21..24
        defb    16,22           ; 25, 26


;       DMA set-up cmd table for disk read operations:


dmatb1  equ     $
        defb    dt1sz,DMACSR
j       defv    $
        defb    DWREG4|DPBLAD|DBYTM     ; set port B adr, byte mode
        defb    FDDAT
        defb    DWREG0|DXFR|DXBTOA|DPALAD|DPAHAD|DBLKLL|DBLKLH
dt1sz   equ     $-j
        defb    0


;       DMA set-up cmd table for disk write operations:


dmatb2  equ     $
        defb    dt2sz,DMACSR
j       defv    $
        defb    DWREG0|DXFR|DXBTOA      ; set B as source (temp)
        defb    DWREG4|DPBLAD|DBYTM     ; set port B adr, byte mode
        defb    FDDAT
        defb    DWREG6|DLOAD            ; load B regs
        defb    DWREG0|DXFR|DXATOB|DPALAD|DPAHAD|DBLKLL|DBLKLH
dt2sz   equ     $-j
        defb    0


;       DMA final cmd table for disk read/write operations:


dmatb3  equ     $
        defb    dt3sz,DMACSR
j       defv    $
dkaadr: defs    2                       ; A start address goes here
        defw    -1                      ; length (BIG number)
        defb    DWREG6|DLOAD            ; load A regs
        defb    DWREG2|DPIO|DPAFIX|DPVTBF       ; set port B as I/O with
        defb    DCYL4|DEIORQ|DEMRQ|DERD|DEWR    ; fixed adr, set timing
        defb    DWREG6|DDMAGO           ; enable DMA
dt3sz   equ     $-j
        defb    0




bdblhd: defw    bdbbas          ; ^ head of BDB list
bdbltl: defw    bdbbas+[BUFCNT-1]*BDBSIZ  ; ^ tail of BDB list


bdbbas  equ     $               ; Buffer Descriptor Blocks (BDBs)
j       defv    1
        rept    BUFCNT
        defb    -1              ; drive number (-1 => not assigned)
        defs    1               ; track number
        defs    1               ; sector number
        defw    [j-1]*512+BUFBAS  ; ^buffer
        defb    0               ; buffer flags
        if j < BUFCNT
          defw  $+2             ; link to next BDB
        else
          defw  NIL             ; terminate list
        endif
j       defv    j+1
        endm




      if HDISK
hdinif: defb    FALSE           ; HD controller has been initialized if <> 0
      endif
curdrv: defb    0               ; currently active drive
dflgs   equ     $               ; array of drive flag bytes
        rept    MAXDRV+1
        defb    1 shl DCBIT     ; force drive initialization first time
        endm


tracks: defs    MAXDRV+1        ; array of current track positions


blkmsk: defs    1               ; block mask
errcod: defs    1               ; error code from read/write operations
wrttyp: defs    1               ; write type code


reqhd:  defs    1               ; requested head number (used only for HD)
reqdrv: defs    1               ; requested drive number
reqtrk: defs    1               ; requested track number
reqsec: defs    1               ; requested sector number
reqdma: defs    2               ; requested DMA adr


      if HDISK
astsiz: defs    1               ; current size of alternate sector table
ast:    defs    [2*128]-1       ; alternate sector table
      endif


        form
;########################################################;
;#       ROUTINES WHICH MUST BE IN COMMON MEMORY        #;
;########################################################;


combas: ; Base of common memory, external procedure jump table.
        ;
        jp      abort           ; abort process
swusrv: jp      $-$             ; restore user program's memory bank
swsysv: jp      $-$             ; restore banked BDOS's memory bank
pdisp:  jp      $-$             ; process dispatcher
xdosv:  jp      $-$             ; XDOS entry point
sysdat: dw      $-$             ; adr of system data page


swuser: ; Restore user program's memory bank
        ;
        push    ix
        call    swusrv
        pop     ix
        ret




swsys:  ; Restore banked BDOS's memory bank
        ;
        push    ix
        call    swsysv
        pop     ix
        ret




xdos:   ; Call MP/M XDOS
        ;
        push    ix
        call    xdosv
        pop     ix
        ret




abort:  ; System abort routine.
        ;
        ld      c,0
        jr      xdos            ; system reset, terminate process


        form
;########################################################;
;#  The following routines transfer data between a disk #;
;#  and bank selected memory.  They must be in common   #;
;#  memory.                                             #;
;########################################################;


ddxfr:  ; Transfer data between DD deblocking buffer and user memory bank.
        ;
        call    swuser          ; select user's bank
        ld      hl,dmatb4
        call    puttbl          ; transfer the data
        jr      swsys           ; reselect bios bank, exit




hdrxfr: ; Transfer data for hard disk read.
        ;
        push    hl
        push    bc
        call    swuser          ; select destination bank
        pop     bc
        pop     hl
        inir                    ; transfer the data
        jr      swsys           ; reselect bios bank, exit




hdwxfr: ; Transfer data for hard disk write.
        ;
        push    hl
        push    bc
        call    swuser          ; select source bank
        pop     bc
        pop     hl
        otir                    ; transfer the data
        jr      swsys           ; reselect bios bank, exit




rwsxfr: ; Transfer data for floppy disk reads and writes.
        ;
        call    grqdf
        clra
        bit     DDBIT,(hl)      ; dmaflg := density <> DD
        push    af
        jr      nz,rwsx2        ; if not DD then
        push    de
        call    swuser          ;    select user's memory bank
        pop     de
        or      a,TRUE
rwsx2:  di                      ;;; critical section follows
        ld      (dmaflg),a      ;;;
        ld      a,d             ;;; A := read or write cmd
        out     (FDCSR),a       ;;; issue cmd
        ei
        ld      (lastrw),a
        call    fdwat           ; wait for completion
        ld      a,DWREG6|DDMANO
        out     (DMACSR),a      ; disable DMA
        pop     af              ; if dmaflg then
        push    de
        call    z,swsys         ;    reselect bios bank
        pop     de
        ret




fdwat:  ; Wait for FDC to complete a command.
        ;
        ; Entry parms:  none
        ; Return parms: none
        ; Regs altered: A
        ;
        push    hl
        push    de
        push    bc
        call    polfd           ; if floppy disk is not ready then
        ld      a,PLFD
        call    z,suspnd        ;    suspend 'til ready
        pop     bc
        pop     de
        pop     hl
        ret


        form
;########################################################;
;#                                                      #;
;#            VIRTUAL DISK TRANSFER ROUTINES            #;
;#                                                      #;
;########################################################;


    if VD


vdxfr0:
; Function
;       Transfers sector from virtual disk to VDBUFF
; On Calling
;       B contains bank select
;       C contains port
;       HL contains virtual disk address
;       (reqdma) contains user address
; On Return
;       user buffer modified
;
        push    hl
        call    swvd            ; switch memory to virtual disk
        pop     hl
        ld      de,vdbuff
        jr      vdmov1          ; do xfer


vdxfr1:
; Function
;       Transfers sector from VDBUFF to virtual disk
; On Calling
;       B contains bank select
;       C contains port
;       HL contains virtual disk address
;       (reqdma) contains user address
; On Return
;       user buffer modified
;
        push    hl
        call    swvd            ; switch memory to virtual disk
        pop     de
        ld      hl,vdbuff
vdmov1: ld      bc,128          ; do xfer
        ldir
        call    swcb            ; switch back to previously selected memory
        ret


vdxfr2:
; Function: Transfers sector from VDBUFF to user memory at reqdma
        call    swuser          ; switch to user memory
        ld      hl,vdbuff       ; set up for xfer
        ld      de,(reqdma)
        jr      vdmov2          ; do xfer


vdxfr3:
; Function: Transfers sector from user memory at (reqdma) to VDBUFF
        call    swuser          ; switch to user memory
        ld      hl,(reqdma)     ; set up for xfer
        ld      de,vdbuff
vdmov2: ld      bc,128          ; do xfer
        ldir
        call    swsys           ; switch back to system memory
        ret


      endif


conin:  ; Console input routine
        ;
        ; Entry:   D = console number
        ; Exit:    A = character read from console (parity reset)
        ; Alters:  A
        ;
        call    ptbljp          ; dispatch to handler
        defw    gcon0           ; console # 0
        defw    gcon1           ; console # 1
        defw    gcon2           ; console # 2
     if Z4S
        defw    gcon3           ; console # 3
        defw    gcon4           ; console # 4
        defw    gcon5           ; console # 5
        defw    gcon6           ; console # 6
      endif




conout: ; Console output routine
        ;
        ; Entry:   D = console number, C = character to print at console
        ; Exit:    A = character printed (like tty driver)
        ; Alters:  A
        ;
        call    ptbljp          ; dispatch to handler
        defw    pcon0           ; console # 0
        defw    pcon1           ; console # 1
        defw    pcon2           ; console # 2
    if Z4S
        defw    pcon3           ; console # 3
        defw    pcon4           ; console # 4
        defw    pcon5           ; console # 5
        defw    pcon6           ; console # 6
      endif




const:  ; Console status check
        ;
        ; Entry:   none
        ; Exit:    A = 0 if no char available, 0ffh if char
        ;          available.
        ; Alters:  A
        ;
        call    ptbljp          ; dispatch to handler
        defw    scon0           ; console # 0
        defw    scon1           ; console # 1
        defw    scon2           ; console # 2
      if Z4S
        defw    scon3           ; console # 3
        defw    scon4           ; console # 4
        defw    scon5           ; console # 5
        defw    scon6           ; console # 6
      endif




list:   ; List output routine
        ;
        ; Entry:   D = list device number,
        ;          C = character to print.
        ; Exit:    A = character printed (like tty driver)
        ; Alters:  A
        ;
        call    ptbljp          ; dispatch to handler
      if PLD1ST
        defw    putpld          ; list device # 0
        defw    putsld          ; list device # 1
      else
        defw    putsld          ; list device # 0
        defw    putpld          ; list device # 1
      endif




listst: ; List ready status routine
        ;
        ; Exit:    A = 0ffh if printer ready, 00h if not.
        ;
        call    ptbljp          ; dispatch to handler
      if PLD1ST
        defw    polpld          ; list device # 0
        defw    polsld          ; list device # 1
      else
        defw    polsld          ; list device # 0
        defw    polpld          ; list device # 1
      endif




putpld: ; Output character to parallel list device
        ;
        ; Entry:   C = character to print at list device
        ; Exit:    A = character printed (like tty driver)
        ; Altered: A
        ;
        ld      a,PLPLD
        push    bc
        call    suspnd          ; suspend 'til printer ready
        pop     bc
        ld      a,c             ; get character
        out     (PLDD),a        ; output it
        ld      a,0<<PLDSTB | 1<<PLDATF | 1<<PLDINI | 1<<PLDSEL
        out     (PLDCS),a       ; strobe printer
        ld      a,1<<PLDSTB | 1<<PLDATF | 1<<PLDINI | 1<<PLDSEL
        out     (PLDCS),a
        ret




      if not TTY40


putsld: ; Serial List device output handler
        ;
        ; Entry:   C = character to print at list device
        ; Exit:    A = character printed (like tty driver)
        ; Altered: A
        ;
        ld      a,PLSLD
        push    bc
        call    suspnd          ; suspend 'til printer ready
        pop     bc
        ld      a,c
        out     (SLDD),a        ; print character
        ret


     else ; assemble TTY-40 list driver


putsld: ; List output device driver for Teletype model 40 lpt.
        ; enter with char in reg C.
        ;
        ld      a,PLSLD
        push    bc
        call    suspnd          ; suspend 'til printer ready
        pop     bc
        call    psldc           ; output char
        ld      a,c
        cp      a,' '
        ret     nc
        ld      c,0
        call    psldc           ; output two nulls after control char, exit
        ;
psldc:  ; Output the char in reg C to the serial printer
        ;
        ld      de,1000h
psldc0: dec     de
        ld      a,e
        or      a,d
        call    z,lpulse        ; assume printer off, start it
        in      a,(SLDCS)
        bit     TXEMPT,a
        jr      z,psldc0
        ld      a,RSTXST|SREG0  ; reset external status
        out     (SLDCS),a
        in      a,(SLDCS)
        cpl
        and     a,1<<SLDBSY|1<<SLDERR
        jr      nz,psldc0       ; not ready or printer error
        ld      a,c
        out     (SLDD),a        ; print character
        ret




lpulse: ; Start TTY 40 motor
        ;
        ld      a,NULCMD|SREG5
        out     (SLDCS),a
        ld      a,TX8|TXENBL|RTS
        out     (SLDCS),a       ; start of pulse
        push    bc
        ld      c,XDELAY
        ld      de,1
        call    xdos            ; delay 1 system tick (16 msec)
        pop     bc
        ld      a,NULCMD|SREG5
        out     (SLDCS),a
        ld      a,DTR|TX8|TXENBL|RTS
        out     (SLDCS),a       ; end of pulse
        ld      de,1000h
        ret


      endif ; not TTY40


        form
;########################################################;
;#              EXTENDED XIOS CALLS                     #;
;########################################################;


selmem: ; Select / protect memory
        ;
        ; Entry:   BC = adr of memory descripter
        ;          BC -> base   1 byte,
        ;                size   1 byte,
        ;                attrib 1 byte,
        ;                bank   1 byte.
        ;
        inc     bc
        inc     bc
        inc     bc
        ld      a,(bc)
        ld      hl,curbnk
        cp      a,(hl)
        jr      z,selm4         ; if requested bank <> curbnk then
        ld      (hl),a          ;    curbnk := requested bank
        call    selwt
selm2:  ld      a,(bc)
selm4:  ld      hl,bnktbl
        call    indexa
        ld      a,(hl)          ; A := select mask for this bank
        out     (BNKSEL),a      ; issue bank selection
        ret


selwt:                          ; wait (if necessary) until safe to do switch
        ld      a,(dmaflg)
        tsta
        ret     z               ;    if dmaflg then
selwt0: in      a,(FDCSR)       ;       wait for FDC to become idle
        rra
        jr      c,selwt0
        ret


      if VD
swvd:
; Function
;       changes currently selected bank of memory to
;       the virtual disk memory specified
; On Calling
;       B contains Bank Select Bits
;       C contains Port Select Bits
; On Return
;       Bank Selected
;
        di                      ; turn off the interupts
        call    selwt           ; wait for safety
        clra
        out     (BNKSEL),a      ; un-select any banks in use
        out     (c),b           ; select the virtual disk bank
        ld      a,c
        ld      (vdprt),a
        ret


swcb:
;  Function: reverses swvd
; Arguments: None passed or returned
;
        ld      a,(vdprt)       ; get the port of the vd bank
        ld      c,a
        clra
        out     (c),a           ; turn it off (so's there no conflict)
        ld      a,(curbnk)
        call    selm4
        ei                      ; turn the interupts back on
        ret


   endif


poldev: ; Poll for device ready
        ;
        ; Entry:   C = device #
        ; Exit:    A = 0ffh if ready, 00h if not
        ;
        ld      a,c
        cp      a,nmbdev
        jr      c,pd0           ; if dev >= nmbdev then
        ld      a,nmbdev        ;    dev := nmbdev
pd0:    call    tbljp           ; dispatch to device poll handler
poltbl  equ     $
      if HDISK
        defw    polhd           ; hard disk
      endif
        defw    polfd           ; floppy disk
        defw    polsld          ; serial list device
        defw    polpld          ; parallel list device
        defw    polc0o          ; console # 0 output
        defw    polc1o          ; console # 1 output
        defw    polc2o          ; console # 2 output
        defw    xitnul          ; bad device handler
nmbdev  equ     [$-poltbl]/2 - 1  ; number of polled devices




clokgo: ; Start clock
        ;
        ld      a,0ffh
        jr      clokx




clokno: ; Stop clock
        ;
        clra
clokx:  ld      (tickn),a
        ret




xitreg: ; Enable i'rupts if preemp = FALSE
        ;
        ld      a,(preemp)
        tsta
        ret     nz              ; if preemp == FALSE then
        ei                      ;    enable interrupts
        ret




maxcon: ; Return maximum console number
        ;
        ld      a,NMBCNS
        ret


        form
;########################################################;
;#                 CONSOLE HANDLERS                     #;
;########################################################;


gcon1:  ; Get character from console # 1
        ;
        ld      ix,c1iddb       ; IX := ^buffer descriptor for console 1
        jr      gconx           ; get char, exit




gcon2:  ; Get character from console # 2
        ;
        ld      ix,c2iddb       ; IX := ^buffer descriptor for console 2
        jr      gconx           ; get char, exit




  if Z4S


gcon3:  ; Get character from console # 3
        ;
        ld      ix,c3iddb       ; IX := ^buffer descriptor for console 3
        jr      gconx           ; get char, exit




gcon4:  ; Get character from console # 4
        ;
        ld      ix,c4iddb       ; IX := ^buffer descriptor for console 4
        jr      gconx           ; get char, exit




gcon5:  ; Get character from console # 5
        ;
        ld      ix,c5iddb       ; IX := ^buffer descriptor for console 5
        jr      gconx           ; get char, exit




gcon6:  ; Get character from console # 6
        ;
        ld      ix,c6iddb       ; IX := ^buffer descriptor for console 6
        jr      gconx           ; get char, exit


    endif


gcon0:  ; Get character from console # 0
        ;
        ld      ix,c0iddb       ; IX := ^buffer descriptor for console 0
gconx:  call    gcbuf           ; if character avail then
        ret     nc              ;    exit
        ld      c,FLGWT
        ld      e,(ix+DFLG)     ; E := flag to wait upon
        call    xdos            ; suspend 'til flag = TRUE
        jr      gconx           ;  and try again




        form
scon1:  ; Return console # 1 input status
        ;
        ld      hl,(c1iddb+DQINP)
        jr      sconx           ; check bfr, exit




scon2:  ; Return console # 2 input status
        ;
        ld      hl,(c2iddb+DQINP)
        jr      sconx           ; check bfr, exit




   if Z4S


scon3:  ; Return console # 3 input status
        ;
        ld      hl,(c3iddb+DQINP)
        jr      sconx           ; check bfr, exit




scon4:  ; Return console # 4 input status
        ;
        ld      hl,(c4iddb+DQINP)
        jr      sconx           ; check bfr, exit




scon5:  ; Return console # 5 input status
        ;
        ld      hl,(c5iddb+DQINP)
        jr      sconx           ; check bfr, exit




scon6:  ; Return console # 6 input status
        ;
        ld      hl,(c6iddb+DQINP)
        jr      sconx           ; check bfr, exit


    endif


scon0:  ; Return console # 0 input status
        ;
        ld      hl,(c0iddb+DQINP)
sconx:  ld      a,l
        sub     a,h
        ret     z               ; return FALSE if buffer empty
        or      a,0ffh
        ret                     ; else return TRUE


        form
pcon0:  ; Output character in reg C to console # 0
        ;
        call    polc0o          ; if console 0 not ready then
        ld      a,PLC0O
        push    bc
        call    z,suspnd        ;    suspend 'til console 0 rdy
        pop     bc
        ld      a,c
        out     (CRT0D),a       ; output character
        ret




pcon1:  ; Output character in reg C to console # 1
        ;
        call    polc1o          ; if console 1 not ready then
        ld      a,PLC1O
        push    bc
        call    z,suspnd        ;    suspend 'til console 1 rdy
        pop     bc
        ld      a,c
        out     (CRT1D),a       ; output character
        ret




pcon2:  ; Output character in reg C to console # 2
        ;
        call    polc2o          ; if console 2 not ready then
        ld      a,PLC2O
        push    bc
        call    z,suspnd        ;    suspend 'til console 2 rdy
        pop     bc
        ld      a,c
        out     (CRT2D),a       ; output character
        ret


  if Z4S


pcon3:  ; Output character in reg C to console # 3
        ;
        call    polc3o          ; if console 3 not ready then
        ld      a,PLC3O
        push    bc
        call    z,suspnd        ;    suspend 'til console 3 rdy
        pop     bc
        ld      a,c
        out     (CRT3D),a       ; output character
        ret


pcon4:  ; Output character in reg C to console # 4
        ;
        call    polc4o          ; if console 4 not ready then
        ld      a,PLC4O
        push    bc
        call    z,suspnd        ;    suspend 'til console 4 rdy
        pop     bc
        ld      a,c
        out     (CRT4D),a       ; output character
        ret


pcon5:  ; Output character in reg C to console # 5
        ;
        call    polc5o          ; if console 5 not ready then
        ld      a,PLC5O
        push    bc
        call    z,suspnd        ;    suspend 'til console 5 rdy
        pop     bc
        ld      a,c
        out     (CRT5D),a       ; output character
        ret


pcon6:  ; Output character in reg C to console # 6
        ;
        call    polc6o          ; if console 6 not ready then
        ld      a,PLC6O
        push    bc
        call    z,suspnd        ;    suspend 'til console 6 rdy
        pop     bc
        ld      a,c
        out     (CRT6D),a       ; output character
        ret


     endif


        form
;########################################################;
;#                 POLL ROUTINES                        #;
;########################################################;


polfd:  ; Poll floppy disk controller ready
        ;
        ; Return parms: A = 0ffh if ready, 00h if not.
        ;
        in      a,(FDCSR)       ; read controller status
        cpl
        and     a,01h           ; mask for FD not busy
        jr      polx2           ; test results, exit




      if HDISK
polhd:  ; Poll hard disk controller ready
        ;
        ; Return parms: A = 0ffh if ready, 00h if not.
        ;
        in      a,(HDCSR)       ; read controller status
        cpl
        and     a,1<<BSYB       ; mask for HD not busy
        jr      polx2           ; test results, exit
      endif




polpld: ; List ready status routine
        ;
        ; Entry:   nil
        ; Exit:    A = 0 if list device is busy,
        ;          0ffh if list device is ready for another char
        ; Altered: A
        ;
        in      a,(PLDCS)
        cpl
        and     a,1<<PLDBSY     ; mask for busy bit
        jr      polx2           ; test for transmitter ready, exit




polsld: ; Poll serial list device out ready
        ;
        ; Return parms: A = 0ffh if printer ready, 00h if not.
        ;
        in      a,(SLDCS)
        jr      polx            ; test for transmitter ready, exit




polc1o: ; Poll console # 1 output ready
        ;
        ; Return parms: A = 0ffh if ready, 00h if not.
        ;
        in      a,(CRT1CS)
        jr      polx


polc2o: in      a,(CRT2CS)
        jr      polx


  if Z4S
polc3o: in      a,(CRT3CS)
        jr      polx
polc4o: in      a,(CRT4CS)
        jr      polx
polc5o: in      a,(CRT5CS)
        jr      polx
polc6o: in      a,(CRT6CS)
        jr      polx
   endif


polc0o: in      a,(CRT0CS)


polx:   and     a,1 shl TXEMPT
polx2:  ret     z
        or      a,0ffh
        ret


        form
;########################################################;
;#                SUPPORT ROUTINES                      #;
;########################################################;


gcnum:  ; Get console number for current process
        ;
        ; Exit:    D = console number
        ; Altered: assume everything
        ;
        ld      c,GCNUMB
        call    xdos
        ld      d,a
        ret




gcbuf:  ; Get a character from circular buffer
        ;
        ; Entry:   IX = ^ to descriptor for desired circular buffer
        ; Exit:    CY = 1 if buffer is empty, 0 if char available
        ;          A = char read if available
        ; Alters:  A, HL
        ;
        ld      a,(ix+DQOUT)    ; A := DQOUT
        cp      a,(ix+DQINP)
        scf
        ret     z               ; exit with CY = 1 if bfr empty
        cp      a,(ix+DQSIZ)    ; wrap-around?
        inc     a               ; bmp in case not
        jr      c,gcbf0
        clra                    ; DQOUT := 0 if wrapped-around
gcbf0:  push    bc
        ld      c,a             ; save DQOUT
        ld      l,(ix+DQBUFP)
        ld      h,(ix+DQBUFP+1) ; HL := buffer data area
        call    indexa
        ld      a,(hl)          ; A := next char from bfr
        ld      (ix+DQOUT),c    ; store updated DQOUT
        pop     bc
        or      a,a             ; clear underflow flg
        ret




indexa: ; HL := HL + A
        ;
        add     a,l
        ld      l,a
        ret     nc
        inc     h
        ret




pcbuf:  ; Put char into circular buffer
        ;
        ; Entry:   IX = ^ to descriptor for desired circular buffer
        ;          C = char to be entered
        ; Exit:    CY = 1 if buffer overflow, 0 if no overflow
        ; Alters:  A, HL
        ;
        ld      a,(ix+DQINP)
        cp      a,(ix+DQSIZ)    ; CY set if wrap-around
        inc     a               ; bmp in case not wrap-around
        jr      c,pcbf0         ; if wrap-around then
        clra                    ;    DQINP := 0
pcbf0:  cp      a,(ix+DQOUT)
        scf
        ret     z               ; exit with CY = 1 if overflow
        ld      l,(ix+DQBUFP)
        ld      h,(ix+DQBUFP+1) ; HL := ^ to buffer data area
        push    af
        call    indexa
        ld      (hl),c          ; enter char
        pop     af
        ld      (ix+DQINP),a    ; update DQINP
        or      a,a             ; clear overflow flag, exit
        ret




ptbljp: ; Dispatch to console handler given by reg D
        ;
        ld      a,d
        cp      a,NMBCNS
        jr      c,tbljp         ; if console >= NMBCNS then
        pop     af              ;    trash ^dispatch table, return A = 0




xitnul: ; Return reg A = 0
        ;
        clra
        ret




puttbl: ; Output I/O initialization tables 'til zero length table
        ; tables are assumed to have the following format:
        ;
        ;       defb    length  ; length of data field
        ;       defb    port    ; port to send data to
        ;       defb    data1,data2,..,datan    ; data field
        ;
        ; Entry:   HL := ^ first table to output
        ;
        ld      a,(hl)          ; A := length
        or      a,a
        ret     z               ; done if length=0
        ld      b,a
        inc     hl
        ld      c,(hl)          ; C := port adr, B := length
        inc     hl
        otir                    ; output table data
        jr      puttbl




setflg: ; Set system flag given by A
        ;
        push    hl
        push    de
        push    bc
        ld      e,a
        ld      c,FLGSET
        ld      a,TRUE
        ld      (preemp),a      ; preemp := TRUE
        call    xdos            ; set the flag
        clra
        ld      (preemp),a      ; preemp := FALSE
        pop     bc
        pop     de
        pop     hl
        ret




suspnd: ; Suspend calling process and poll using code given by A
        ;
        ld      c,POLL
        ld      e,a             ; E := poll code
        jp      xdos            ; issue poll request, exit (eventually)




tbljp:  ; Compute and jump to handler given by reg A
        ;
        add     a,a             ; x 2
        pop     hl              ; HL := base of device tbl
        call    indexa          ; HL := ^device handler adr
        ld      e,(hl)
        inc     hl
        ld      d,(hl)
        ex      de,hl           ; HL := device handler adr
        jp      (hl)            ; go there


        form
;########################################################;
;#                  DEBUG ROUTINES                      #;
;########################################################;


     if DEBUG


dskerr: ; Print error info at console
        ;
        push    hl              ; save everything in jeopardy
        push    de
        push    bc
        push    af
        call    print
        defm    cr,lf,'Disk err - DRV='
        ld      a,(ix+IDRV)
        call    putbyt
        call    print
        defm    ', FDCSR='
        in      a,(FDCSR)
        call    putbyt          ; print FDC status register
        call    print
        defm    ', FDXCSR='
        in      a,(FDXCSR)
        call    putbyt
        call    print
        defm    ', FDTRK='
        in      a,(FDTRK)
        call    putbyt          ; print FDC track register
        call    print
        defm    ', TRACK='
        ld      a,(ix+ITRK)
        call    putbyt          ; print desired track
        call    print
        defm    ', FDSEC='
        in      a,(FDSEC)
        call    putbyt          ; print FDC sector register
        call    print
        defm    ', CMD='
        ld      a,(lastrw)
        call    putbyt          ; print cmd byte
        pop     af
        pop     bc
        pop     de
        pop     hl              ; everything restored
        ret




putbyt: ; Print byte in A at console in hexadecimal format
        ;
        push    af
        rra
        rra
        rra
        rra
        call    putnbl
        pop     af




putnbl: ; Print low nibble in A as one hexadecimal digit
        ;
        and     a,0fh
        add     a,90h
        daa
        adc     a,40h
        daa


     endif ; DEBUG




putc:   ; Print character in A at console
        ;
        push    hl
        push    de
        push    bc
        push    af
        call    gcnum           ; get console number
        pop     af
        ld      c,a
        call    conout
        pop     bc
        pop     de
        pop     hl
        ret




getyn:  ; Get Y/N response from console
        ;
        push    ix
        call    gcnum           ; get console number
        call    conin
        pop     ix
        and     a,5fh           ; fold to UC alfa
        cp      a,'Y'           ; if char = "Y" then
        ret     z               ;    return CY = 1
        clrcf                   ; else
        ret                     ;    return CY = 0




wrterr: ; Print write error msg at console
        ;
        call    warn
        defm    'Buffer wrt err'
        ret




warn:   ; Print warning message at console
        ;
        call    print           ; print preface to message, then msg, exit
        defm    CR,LF,BELL,'?XIOS: '




print:  ; Print literal string
        ;
        ; Entry:   String must follow call and must be terminated
        ;          by a character with bit 7 set.  To wit:
        ;               call print
        ;               defm <string>
        ; Exit:    nil
        ; Alters:  A, C
        ;
        ex      (sp),hl         ; HL := ptr to next char to type
prnt0:  ld      a,(hl)          ; pick up
        res     7,a             ; reset possible terminator
        call    putc            ; print character
        bit     7,(hl)          ; chk if done
        inc     hl              ; advance string ptr
        jr      z,prnt0         ; continue til terminator
        ex      (sp),hl         ; registers restored
        ret


        form
;########################################################;
;#              INTERRUPT LEVEL ROUTINES                #;
;########################################################;


ciih:   ; Console input interrupt handler
        ;
        ld      (oldisp),sp     ;;; save old stk ptr, set up local stack
        ld      sp,intstk       ;;;
        push    ix              ;;;
        push    hl              ;;;
        push    bc              ;;;
        push    af              ;;;
        ld      ix,c0iddb       ;;; IX := ^ first input device descriptor block
        ld      b,NMBCNS        ;;; B := number of consoles to test
ciih0:  push    bc              ;;;
        ld      c,(ix+DPORT)    ;;;
        inc     c               ;;; C := status port adr
        in      a,(c)           ;;;
        bit     RXAVAL,a        ;;; test for data available
        jr      z,ciih2         ;;; if data available then
        dec     c               ;;;    C := data port adr
        in      a,(c)           ;;;    input char
        and     a,7fh           ;;;    clear parity
        ld      c,a             ;;;
        call    pcbuf           ;;;    enter char into buffer
        ld      a,(ix+DFLG)     ;;;
        call    setflg          ;;;    set system flag for device
ciih2:  ld      bc,DDBSIZ       ;;;
        add     ix,bc           ;;; IX := ^ next DDB
        pop     bc              ;;;
        djnz    ciih0           ;;; repeat NMBCNS times
        pop     af              ;;;
        pop     bc              ;;;
        pop     hl              ;;;
        pop     ix              ;;;
        jr      ixit            ;;; exit from interrupt handler




tick:   ; process clock timer i'rupts
        ;
        ld      (oldisp),sp     ;;;
        ld      sp,intstk       ;;; set up local stack
        push    hl              ;;;
        push    af              ;;;
        ld      hl,tiks         ;;;
        dec     (hl)            ;;; tiks := tiks - 1
        jr      nz,tk0          ;;; if tiks = 0 then
        ld      (hl),125        ;;;    tiks := 125
        ld      a,SECFLG        ;;;    set SECFLG
        call    setflg          ;;;
tk0:    ld      hl,clkctr       ;;;
        inc     (hl)            ;;; clkctr := clkctr + 1
        bit     0,(hl)          ;;;
        jr      z,tk2           ;;; if odd(clkctr) then
        ld      a,(tickn)       ;;;
        tsta                    ;;;    if tickn then
        ld      a,TIKFLG        ;;;
        call    nz,setflg       ;;;       set TIKFLG
tk2:    pop     af              ;;;
        pop     hl              ;;;




ixit:   ; Common exit code for interrupt handlers
        ;
        call    iret            ;;; do reti instruction for h'ware
        ld      sp,(oldisp)     ;;; restore stack
        jp      pdisp           ;;; exit to MP/M dispatcher




iret:   ; Subroutine to perform RETI instruction
        ; req'd by some Z-80 I/O devices
        ;
        reti


        form
;########################################################;
;#              DISK DEFINITION STRUCTURES              #;
;########################################################;


dpbase: ; disk parameter header tables (2 floppy drives, 3 hard disks)
        ;
      if HDISK
        defw    0000h,0000h,0000h,0000h         ; hard disk 0
        defw    dirbf,dphd0,0000h,hallv0
        ;
        defw    0000h,0000h,0000h,0000h         ; hard disk 1
        defw    dirbf,dphd1,0000h,hallv1
      endif
      if HDSK18
        defw    0000h,0000h,0000h,0000h         ; hard disk 2
        defw    dirbf,dphd2,0000h,hallv2
      endif




        defw    xlt128,0000h,0000h,0000h        ; floppy drive 0
        defw    dirbf,dp128s,fchkv0,fallv0
        ;
        defw    xlt128,0000h,0000h,0000h        ; floppy drive 1
        defw    dirbf,dp128s,fchkv1,fallv1


      if VD
vdhb:   defw    0000h,0000h,0000h,0000h         ; virtual disk
        defw    dirbf,vdpb,0000h,vdallv
      endif




dp128s: ; DPB for single density, single-sided 128 byte sector floppy disks
        ;
        defw    1*26            ; sectors per track
        defb    3               ; block shift factor
        defb    7               ; block mask
        defb    0               ; extent mask
        defw    242             ; disk size - 1
        defw    63              ; maximum directory number
        defb    0c0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    (63+1)/4        ; check size
        defw    2               ; track offset to group 0
        defb    2*26            ; number of OS sectors
        defb    1               ; first sector on track
        defb    0               ; buffer mask


dp512s: ; DPB for double density, single-sided 512 byte sector floppy disks
        ;
        defw    1*64            ; sectors per track
        defb    4               ; block shift factor
        defb    15              ; block mask
        defb    0               ; extent mask
        defw    303             ; disk size - 1
        defw    127             ; maximum directory number
        defb    0c0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    (127+1)/4       ; check size
        defw    1               ; track offset to group 0
        defb    1*64            ; number of OS sectors
        defb    0               ; first sector on track
        defb    BUFMSK          ; buffer mask


dp512d: ; DPB for double density, double-sided 512 byte sector floppy disks
        ;
        defw    2*64            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    303             ; disk size - 1
        defw    255             ; maximum directory number
        defb    0c0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    (255+1)/4       ; check size
        defw    1               ; track offset to group 0
        defb    2*64            ; number of OS sectors
        defb    0               ; first sector on track
        defb    BUFMSK          ; buffer mask




      if HDISK
dphd0:  ; DPB for first logical hard disk
        ;
        defw    1*54            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    1028            ; disk size - 1
        defw    511             ; maximum directory number
        defb    0f0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    4               ; track offset to group 0
        defb    2*54            ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask


dphd1:  ; DPB for second logical hard disk
        ;
        defw    1*54            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    1028            ; disk size - 1
        defw    511             ; maximum directory number
        defb    0f0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    610+4           ; track offset to group 0
        defb    2*54            ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask
      endif ; HDISK


      if HDSK18
dphd2:  ; DPB for second logical hard disk
        ;
        defw    1*54            ; sectors per track
        defb    5               ; block shift factor
        defb    31              ; block mask
        defb    1               ; extent mask
        defw    1028            ; disk size - 1
        defw    511             ; maximum directory number
        defb    0f0h            ; alloc 0
        defb    000h            ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    610+610+4       ; track offset to group 0
        defb    2*54            ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask
      endif ; HDSK18


      if VD
vdpb:
        defw    128             ; sectors per track
        defb    3               ; block shift factor
        defb    7               ; block mask
        defb    0               ; extent mask
vdgrps: defw    -1              ; number of groups
        defw    31              ; maximum directory number
        defb    080h            ; alloc 0
        defb    0               ; alloc 1
        defw    0               ; check size (0 => don't check)
        defw    0               ; track offset to group 0
        defb    0               ; number of OS sectors
        defb    0               ; first sector on track
        defb    0               ; buffer mask
      endif




        form
;########################################################;
;#            COMMON TABLE AND DATA AREA                #;
;########################################################;


bnktbl: ; Table of bank select masks (used by selmem).
        ;
        defb    01h, 02h, 04h, 08h
        defb    10h, 20h, 40h, 80h




dmatb4: ; DMA cmd table for memory-to-memory block moves:
        ; Port A is the source.
        ;
        defb    dt4sz,DMACSR
j       defv    $
        defb    DWREG0|DXFR|DXATOB|DPALAD|DPAHAD|DBLKLL|DBLKLH
bmaadr: defs    2                       ; storage for A adr
        defw    128-1                   ; length = 128 bytes
        defb    DWREG2|DPMEM|DPAINC|DPVTBF      ; port B is memory with inc adr
        defb    DCYL3|DEIORQ|DEMRQ|DERD|DEWR    ; set timing
        defb    DWREG4|DPBLAD|DPBHAD|DCONTM     ; set port B adr, cont mode
bmbadr: defs    2
        defb    DWREG6|DLOAD            ; load adr regs
        defb    DWREG6|DFRCR            ; force READY
        defb    DWREG6|DDMAGO           ; enable DMA
dt4sz   equ     $-j
        defb    0                       ; end of table




c0iddb: ;; Console # 0 input device descriptor block
        ;;
        defb    CRT0D           ;; base port adr
        defb    C0IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c0ibuf          ;; ^base of buffer data area




c1iddb: ;; Console # 1 input device descriptor block
        ;;
        defb    CRT1D           ;; base port adr
        defb    C1IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c1ibuf          ;; ^base of buffer data area




c2iddb: ;; Console # 2 input device descriptor block
        ;;
        defb    CRT2D           ;; base port adr
        defb    C2IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c2ibuf          ;; ^base of buffer data area




      if Z4S


c3iddb: ;; Console # 3 input device descriptor block
        ;;
        defb    CRT3D           ;; base port adr
        defb    C3IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c3ibuf          ;; ^base of buffer data area




c4iddb: ;; Console # 4 input device descriptor block
        ;;
        defb    CRT4D           ;; base port adr
        defb    C4IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c4ibuf          ;; ^base of buffer data area




c5iddb: ;; Console # 5 input device descriptor block
        ;;
        defb    CRT5D           ;; base port adr
        defb    C5IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c5ibuf          ;; ^base of buffer data area




c6iddb: ;; Console # 6 input device descriptor block
        ;;
        defb    CRT6D           ;; base port adr
        defb    C6IFLG          ;; system flag code
        defb    0               ;; DQINP
        defb    0               ;; DQOUT
        defb    CIBFSZ-1        ;; buffer size
        defw    c6ibuf          ;; ^base of buffer data area


      endif


preemp: defb    00h             ; preempted boolean
tickn:  defb    00h             ; clock flag
tiks:   defb    01h             ; storage for clock second ticker
clkctr: defb    00h             ; odd/even tick counter
curbnk: defb    01h             ; storage for current bank select code
dmaflg: defb    FALSE           ; TRUE if disk doing DMA
lastrw: defb    RDCMD           ; last read or write cmd to FDC
      if VD
vdok:   defb    FALSE           ; virtual disk O.K.
      endif


        form
;########################################################;
;#                                                      #;
;#  EXTREMELY IMPORTANT NOTE:                           #;
;#  The following area initially contains the system    #;
;#  initialization code and tables.  After the system   #;
;#  has been initialized and the code is no longer      #;
;#  needed, the initialization code is overlayed by     #;
;#  bios scratch areas.  All code from here on will be  #;
;#  destroyed!!  Abandon hope, all ye who enter (code)  #;
;#  here.                                               #;
;#                                                      #; 
;########################################################;


scrat   equ     $


sysini: ; Initialize system upon cold start
        ;
        ld      a,0feh
        out     (BNKSEL),a      ; select memory banks 1..7
        ld      a,0c3h
        ld      (0000h),a       ; install jump to bios entry table @ 0000h
        ld      (0001h),hl
        ld      l,c             ; C := debugger restart number
        ld      h,0
        add     hl,hl
        add     hl,hl
        add     hl,hl           ; HL := 8 * debugger restart number
        ld      (hl),a          ; install link to debugger trap @ restart loc
        inc     hl
        ld      (hl),e
        inc     hl
        ld      (hl),d
        ld      a,01h
        out     (BNKSEL),a      ; select memory bank 0
        ;
        ; Align interrupt vector table so that it is 0 modulo 8
        ; and doesn't cross a page boundary.  The new locations of
        ; the interrupt vectors for the SIOs and the CTC then must
        ; be plugged into the appropriate initialization strings.
        ;
        ld      hl,itbl
        ld      a,l
        and     a,07h
        jr      z,sysi2         ; if loc(itbl) mod 8 <> 0 then
        ld      a,l
        and     a,not 07h       ;    align to next multiple of 8
        ld      l,a
        ld      de,8
        add     hl,de
sysi2:  ld      a,l
        cp      a,0f8h
        jr      nz,sysi4        ; if low(loc(itbl)) = 0f8h then
        ld      de,8            ;    align to next page
        add     hl,de
sysi4:  ld      a,h
        ld      i,a             ; set interrupt page adr
        ld      a,l
        ld      (ctc0vl),a      ; plug CTC vectors into CTC init string
     if Z4S
        add     a,ctc1v-ctc0v
        ld      (ctc1vl),a
      endif
        ld      a,l
        add     a,siov-ctc0v
        ld      (sio0vl),a      ; plug SIO vector into SIO init strings
        ld      (sio1vl),a
     if Z4S
        ld      (sio2vl),a
        ld      (sio3vl),a
      endif
        ld      bc,itblsz
        add     hl,bc
        ex      de,hl
        ld      hl,itbl+itblsz
        lddr                    ; move itbl into correct area
        im      2
        ld      ix,binfo0
        call    setbd           ; set baudrate for crt 0
        ld      ix,binfo1
        call    setbd           ; set baudrate for lpt
        ld      ix,binfo2
        call    setbd           ; set baudrate for crt 1 and crt 2
      if Z4S
        ld      ix,binfo3
        call    setbd           ; set baudrate for crt 3
        ld      ix,binfo4
        call    setbd           ; set baudrate for crt 4
        ld      ix,binfo5
        call    setbd           ; set baudrate for crt 5 and crt 6
      endif
        ld      a,(stopb1)
        ld      (stopb2),a      ; copy stop bit cmd byte to crt 2
      if Z4S
        ld      a,(stopb5)
        ld      (stopb6),a      ; copy stop bit cmd byte to crt 6
      endif
        ld      hl,initbl       ; HL := ^I/O initialization tables
        call    puttbl          ; initialize everything


        in      a,(CRT0D)       ; clear all input channels
        in      a,(CRT0D)
        in      a,(CRT0D)
        in      a,(CRT1D)
        in      a,(CRT1D)
        in      a,(CRT1D)
        in      a,(CRT2D)
        in      a,(CRT2D)
        in      a,(CRT2D)
    if Z4S
        in      a,(CRT3D)
        in      a,(CRT3D)
        in      a,(CRT3D)
        in      a,(CRT4D)
        in      a,(CRT4D)
        in      a,(CRT4D)
        in      a,(CRT5D)
        in      a,(CRT5D)
        in      a,(CRT5D)
        in      a,(CRT6D)
        in      a,(CRT6D)
        in      a,(CRT6D)
      endif


      if VD
        call    swsys           ; make sure we're accessing the system area
        ld      (vdstck),sp     ; switch to local stack for duration
        ld      sp,vdstck       ; of vdinit operations
        call    vdinit
        ld      sp,(vdstck)     ; return to called stack
      endif


        ret                     ; exit (system will enable i'rupts)




setbd:  ; Set baudrate from descriptor table given by IX
        ;
        in      a,(SWIN)
        ld      b,(ix+0)        ; B := rotate count
        inc     b
setbd0: dec     b
        jr      z,setbd1
        rrca
        jr      setbd0
        ;
setbd1: and     a,(ix+1)        ; strip unwanted bits
        jr      nz,setbd2       ; if input value = 0 then
        ld      l,(ix+6)
        ld      h,(ix+7)
        set     3,(hl)          ;    set SIO init table for 2 stop bits
setbd2: ld      l,(ix+2)
        ld      h,(ix+3)        ; HL := ^ baudrate table
        call    indexa
        ld      a,(hl)          ; A := desired baudrate
        ld      l,(ix+4)
        ld      h,(ix+5)
        ld      (hl),a          ; plug baudrate count into CTC init table
        ret


      if VD


vdinit:
; function:
;     initializes the virtual disk
;     detirmines the size of the virtual disk
;       looks up on vdmtbl all of the 16K segments at the
;       end of the table or when a segment can't be written
;       assumes that is the end of the virtual disk
;     modifies the INTERNAL DPB for the virtual disk
;     if NO segments, sets flag for select error
;     intializes entire VD with E5's
;


        ld      hl,vdbuff
        ld      de,vdbuff+1
        ld      bc,127
        ld      (hl),0E5h
        ldir                    ; fill vdbuff with E5's


        clra                    ; start at the begining of the disk...
        ld      (reqsec),a
        ld      (reqtrk),a


vdint1:


        call    vdiwt           ; write a test sector
        call    vdchk
        ret     nz              ; all done initializing disk if no comparison


        call    vditrk          ; initialize the track to E5's


        ld      hl,(vdgrps)     ; bump count of groups
        ld      de,16
        add     hl,de
        ld      (vdgrps),hl


        ld      a,true
        ld      (vdok),a        ; set flag saying there is at least one track


        ld      hl,reqtrk
        inc     (hl)
        ld      a,(hl)          ; increment track count
        add     a,a             ; multiply by three
        add     a,(hl)
        ld      hl,vdmtbl       ; check to make sure not at end of table
        call    indexa
        ld      a,(hl)
        inc     a
        jr      nz,vdint1       ; if not at end of table, play it agin' sam
        ret


vdchk:                          ; read sector, check if completely E5's
        call    vdird           ; read sector
        ld      hl,vdbuff       ; set up for comparison
        ld      b,128
        ld      a,0E5h
vdchk1:
        cp      a,(hl)          ; compare E5 to VDBUFF(HL)
        ret     nz              ; if not the same skip out of here
        inc     hl
        djnz    vdchk1          ; loop around 'till 128 gone by
        xor     a               ; return zero (no errors)
        ret


vditrk:                         ; initialize track
        call    vdiwt           ; write out a sector with E5's
        ld      a,(reqsec)
        inc     a               ; bump to next sector
        and     a,127
        ld      (reqsec),a
        jr      nz,vditrk       ; do agin if not past last
        ret                     ; have written sectors 0-127 -- all done!


vdird:
        call    vdsu
        jp      vdxfr0


vdiwt:
        call    vdsu
        jp      vdxfr1


        ret


      endif




binfo0: ;  Baud rate selection info for CRT
        ;
        defb    0               ; rotate count
        defb    07h             ; mask to isolate desired switches
        defw    bdtbl0          ; ^ baud rate selection table
        defw    baud0           ; ^ CTC count byte
        defw    stopb0          ; ^ stop bit init byte




binfo1: ;  Baud rate selection info for list device
        ;
        defb    3               ; rotate count
        defb    03h             ; mask to isolate desired switches
        defw    bdtbl1          ; ^ baud rate selection table
        defw    baud1           ; ^ CTC count byte
        defw    stopbL          ; ^ stop bit init byte




binfo2: ;  Baud rate selection info for serial channels 1 & 2
        ;
        defb    5               ; rotate count
        defb    07h             ; mask to isolate desired switches
        defw    bdtbl0          ; ^ baud rate selection table
        defw    baud2           ; ^ CTC count byte
        defw    stopb1          ; ^ stop bit init byte




  if Z4S


binfo3: ;  Baud rate selection info for serial channel 3
        ;
        defb    0               ; rotate count
        defb    03h             ; mask to isolate desired switches
        defw    bdtbl2          ; ^ baud rate selection table
        defw    baud3           ; ^ CTC count byte
        defw    stopb3          ; ^ stop bit init byte




binfo4: ;  Baud rate selection info for serial channel 4
        ;
        defb    2               ; rotate count
        defb    03h             ; mask to isolate desired switches
        defw    bdtbl2          ; ^ baud rate selection table
        defw    baud4           ; ^ CTC count byte
        defw    stopb4          ; ^ stop bit init byte




binfo5: ;  Baud rate selection info for serial channel 5 & 6
        ;
        defb    4               ; rotate count
        defb    03h             ; mask to isolate desired switches
        defw    bdtbl2          ; ^ baud rate selection table
        defw    baud5           ; ^ CTC count byte
        defw    stopb5          ; ^ stop bit init byte


  endif




bdtbl0: ; Baud rate count table # 0
        ;
        defb    174             ; 0: 110 baud
        defb    64              ; 1: 300 baud
        defb    32              ; 2: 600 baud
        defb    16              ; 3: 1200 baud
        defb    8               ; 4: 2400 baud
        defb    4               ; 5: 4800 baud
        defb    2               ; 6: 9600 baud
        defb    1               ; 7: 19200 baud




bdtbl1: ; Baud rate count table # 1
        ;
        defb    174             ; 0: 110 baud
        defb    64              ; 1: 300 baud
        defb    16              ; 2: 1200 baud
        defb    2               ; 3: 9600 baud


bdtbl2: ; Baud rate count table # 2
        ;
        defb    64              ; 0: 300 baud
        defb    16              ; 1: 1200 baud
        defb    2               ; 2: 9600 baud
        defb    1               ; 3: 19200 baud


initbl  equ     $


        ; initialization table for CRT 0:
        ;
        defb    it0sz,SIO0AC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb0: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it0sz   equ     $-j             ; size of this table


        ; initialization table for line printer:
        ;
        defb    itLsz,SIO0BC
j       defv    $
        defb    RSTCHN          ; reset channel
        defb    NULCMD|SREG2
sio0vl: defb    $-$             ; interrupt vector installed here
stopbL: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|ATOENB|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, 0
itLsz   equ     $-j


        ; initialization table for CRT 1:
        ;
        defb    it1sz,SIO1AC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb1: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it1sz   equ     $-j


        ; initialization table for CRT 2:
        ;
        defb    it2sz,SIO1BC
j       defv    $
        defb    RSTCHN          ; reset channel
        defb    NULCMD|SREG2
sio1vl: defb    $-$             ; interrupt vector installed here
stopb2: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it2sz   equ     $-j


  if Z4S


        ; initialization table for CRT 3:
        ;
        defb    it3sz,SIO2AC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb3: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it3sz   equ     $-j


        ; initialization table for CRT 4:
        ;
        defb    it4sz,SIO2BC
j       defv    $
        defb    RSTCHN          ; reset channel
        defb    NULCMD|SREG2
sio2vl: defb    $-$             ; interrupt vector installed here
stopb4: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it4sz   equ     $-j


        ; initialization table for CRT 5:
        ;
        defb    it5sz,SIO3AC
j       defv    $
        defb    RSTCHN          ; reset channel
stopb5: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it5sz   equ     $-j


        ; initialization table for CRT 6:
        ;
        defb    it6sz,SIO3BC
j       defv    $
        defb    RSTCHN          ; reset channel
        defb    NULCMD|SREG2
sio3vl: defb    $-$             ; interrupt vector installed here
stopb6: defb    NULCMD|SREG4, CLKX64|STOP1|PAROFF
        defb    NULCMD|SREG3, RBITS8|RXENB
        defb    NULCMD|SREG5, DTR|TX8|TXENBL|RTS
        defb    RSTXST|SREG1, RIM0|RIM1
it6sz   equ     $-j


  endif


        ; initialization table for CRT baud rate:
        ;
        defb    itb0sz,CTC0     ; ctc channel 0
j       defl    $
ctc0vl: defb    $-$             ; interrupt vector installed here
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud0:  defb    2               ; baud rate count
itb0sz  equ     $-j


        ; initialization table for line printer baud rate:
        ;
        defb    itb1sz,CTC1     ; ctc channel 1
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud1:  defb    2               ; baud rate count
itb1sz  equ     $-j


        ; initialization table for serial channel 1 & 2 baud rates:
        ;
        defb    itb2sz,CTC2     ; ctc channel 2
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud2:  defb    2               ; baud rate count
itb2sz  equ     $-j


        ; initialization table for clock interrupt timer:
        ;
        defb    itb3sz,CTC3     ; ctc channel 3
j       defv    $
        defb    CTCRST|CTCEI|TMRMOD|DIV256|HITOLO|LODTC|CTCCCR
        defb    125             ; 8 msec ticks
itb3sz  equ     $-j


     if Z4S
        ; initialization table for serial channel 3 baud rate:
        ;
        defb    itb4sz,CTC4     ; ctc channel 4
j       defl    $
ctc1vl: defb    $-$             ; interrupt vector installed here
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud3:  defb    2               ; baud rate count
itb4sz  equ     $-j


        ; initialization table for serial channel 4 baud rate:
        ;
        defb    itb5sz,CTC5     ; ctc channel 5
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud4:  defb    2               ; baud rate count
itb5sz  equ     $-j


        ; initialization table for serial channel 5 & 6 baud rates:
        ;
        defb    itb6sz,CTC6     ; ctc channel 6
j       defl    $
        defb    CTCRST|CTCDI|CTRMOD|DIV16|HITOLO|LODTC|CTCCCR
baud5:  defb    2               ; baud rate count
itb6sz  equ     $-j


        ; initialization table for clock interrupt timer:
        ;
        defb    itb7sz,CTC7     ; ctc channel 7
j       defv    $
        defb    CTCRST|CTCEI|TMRMOD|DIV16|HITOLO|LODTC|CTCCCR
        defb    245             ; not many interupts...?
itb7sz  equ     $-j


      endif


        ; DMA start-up initialization table:
        ;
        defb    it8sz,DMACSR
j       defv    $
        defb    DWREG6|DRESET           ; reset DMA controller
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG6|DRESET
        defb    DWREG5|DRDYHI                   ; define READY as active low
        defb    DWREG1|DPMEM|DPAINC|DPVTBF      ; set port A as memory with
        defb    DCYL3|DEIORQ|DEMRQ|DERD|DEWR    ; incrementing adr, set timing
        ;
        ; The Zilog DMA controller will sometimes screw up the first
        ; byte transferred after a reset command.  The following seq-
        ; uence of command bytes does a memory to memory block move
        ; to eliminate the problem.
        ;
        defb    DWREG0|DXFR|DXATOB|DPALAD|DPAHAD|DBLKLL|DBLKLH
        defw    dirbf                   ; storage for A adr
        defw    128-1                   ; length = 128 bytes
        defb    DWREG2|DPMEM|DPAINC|DPVTBF      ; port B is memory with inc adr
        defb    DCYL3|DEIORQ|DEMRQ|DERD|DEWR    ; set timing
        defb    DWREG4|DPBLAD|DPBHAD|DCONTM     ; set port B adr, cont mode
        defw    dirbf
        defb    DWREG6|DLOAD            ; load adr regs
        defb    DWREG6|DFRCR            ; force READY
        defb    DWREG6|DDMAGO           ; enable DMA
it8sz   equ     $-j             ; size of this table


        ; initialization table for 9519 i'rupt controller:
        ;
        defb    2,IRCCMD
        defb    IRCRST,IRCDIS   ; reset and disable controller


        ; initialization table for parallel list device
        ;
        defb    1,PIOCMD        ; set up 8255 mode, direction
        defb    081h
        defb    1,PLDCS         ; turn strobe off
        defb    1<<PLDSTB | 1<<PLDATF | 1<<PLDINI | 1<<PLDSEL


        defb    0               ; *** end of initialization tables


lstscr  equ     $


        form
;########################################################;
;#              DATA AND BUFFER AREA                                                  #;
;########################################################;


        org     scrat           ; overlays initialization code


fallv0: defs    303/8+1         ; floppy disk allocation vector 0
fallv1: defs    303/8+1         ; floppy disk allocation vector 1


      if HDISK
hallv0: defs    1179/8+1        ; hard disk allocation vector 0
hallv1: defs    1179/8+1        ; hard disk allocation vector 1
      endif
      if HDSK18
hallv2: defs    1179/8+1        ; hard disk allocation vector 1
      endif


      if VD
vdallv: defs    256/8           ; virtual disk allocation vector
      endif


fchkv0: defs    (255+1)/4       ; check vector 0
fchkv1: defs    (255+1)/4       ; check vector 1


c0ibuf: defs    CIBFSZ          ; console # 0 input buffer
c1ibuf: defs    CIBFSZ          ; console # 1 input buffer
c2ibuf: defs    CIBFSZ          ; console # 2 input buffer
      if Z4S
c3ibuf: defs    CIBFSZ          ; console # 3 input buffer
c4ibuf: defs    CIBFSZ          ; console # 4 input buffer
c5ibuf: defs    CIBFSZ          ; console # 5 input buffer
c6ibuf: defs    CIBFSZ          ; console # 6 input buffer
      endif


dirbf:  defs    128             ; directory buffer area


      if ( $ < lstscr ) & VD
        scratch area overlayed by vdbuff
      endif


      if VD                     ; these segments must be after the scrat area
        defs    2*16
vdstck: defs    2
vdbuff: defs    128             ; temporary transfer buffer
vdprt:  defs    1               ; port that the vdbnk last accessed (in vdsw)
      endif


        defs    2*16            ; local stack for i'rupt handlers
intstk  equ     $
oldisp: defs    2               ; storage for caller's SP for i'rupt handlers


        form
;########################################################;
;#              INTERRUPT VECTOR TABLE                  #;
;########################################################;


itbl    equ     $


ctc0v:  defw    iret            ; CTC channel 0
        defw    iret            ; CTC channel 1
        defw    iret            ; CTC channel 2
        defw    tick            ; CTC channel 3 (clock timer)
ctc1v:  defw    iret            ; CTC channel 4
        defw    iret            ; CTC channel 5
        defw    iret            ; CTC channel 6
        defw    iret            ; CTC channel 7
siov:   defw    ciih            ; console input (all channels)
itblsz  equ     $-itbl


        defs    7+8+8           ; space for aligning interrupt vectors
        defb    $-$             ; force full size module


        end     xios